home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / CLOS.FAS < prev    next >
Text File  |  1994-02-05  |  122KB  |  2,081 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01) (CLOS))
  4. #Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 01 D5 67 01 37 03 30 B7 0F 01 19 01) CLOS *FEATURES*)
  5. #Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  6. #Y(#:TOP-LEVEL-FORM-5-1 #15Y(00 00 00 00 00 01 D5 5F 37 01 30 DE 3D 19 01) "CLOS")
  7. #Y(#:TOP-LEVEL-FORM-5-2 #13Y(00 00 00 00 00 01 D5 D6 30 DB 3D 19 01) ("LISP") "CLOS")
  8. #Y(#:TOP-LEVEL-FORM-5-3 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) "FUNCTION-NAME-P"
  9.    "SYSTEM" "CLOS" SYSTEM::IMPORT-CERROR
  10.   )
  11. #Y(#:TOP-LEVEL-FORM-5-4 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) "BLOCK-NAME" "SYSTEM"
  12.    "CLOS" SYSTEM::IMPORT-CERROR
  13.   )
  14. #Y(#:TOP-LEVEL-FORM-5-5 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) "MEMQ" "SYSTEM" "CLOS"
  15.    SYSTEM::IMPORT-CERROR
  16.   )
  17. #Y(#:TOP-LEVEL-FORM-5-6 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) "*KEYWORD-PACKAGE*"
  18.    "SYSTEM" "CLOS" SYSTEM::IMPORT-CERROR
  19.   )
  20. #Y(#:TOP-LEVEL-FORM-5-7 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01)
  21.    "%GENERIC-FUNCTION-LAMBDA" "SYSTEM" "CLOS" SYSTEM::IMPORT-CERROR
  22.   )
  23. #Y(#:TOP-LEVEL-FORM-5-8 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01)
  24.    "%OPTIMIZE-FUNCTION-LAMBDA" "SYSTEM" "CLOS" SYSTEM::IMPORT-CERROR
  25.   )
  26. #Y(#:TOP-LEVEL-FORM-5-9 #11Y(00 00 00 00 00 01 D5 30 CB 19 01) "CLOS")
  27. #Y(#:TOP-LEVEL-FORM-6 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01)
  28.    (SLOT-VALUE SLOT-BOUNDP SLOT-MAKUNBOUND SLOT-EXISTS-P WITH-SLOTS WITH-ACCESSORS FIND-CLASS
  29.     CLASS-OF DEFCLASS DEFMETHOD CALL-NEXT-METHOD NEXT-METHOD-P DEFGENERIC GENERIC-FUNCTION
  30.     GENERIC-FLET GENERIC-LABELS CLASS-NAME NO-APPLICABLE-METHOD NO-PRIMARY-METHOD NO-NEXT-METHOD
  31.     FIND-METHOD ADD-METHOD REMOVE-METHOD COMPUTE-APPLICABLE-METHODS METHOD-QUALIFIERS
  32.     FUNCTION-KEYWORDS SLOT-MISSING SLOT-UNBOUND PRINT-OBJECT DESCRIBE-OBJECT MAKE-INSTANCE
  33.     INITIALIZE-INSTANCE REINITIALIZE-INSTANCE SHARED-INITIALIZE STANDARD-CLASS STRUCTURE-CLASS
  34.     BUILT-IN-CLASS STANDARD-OBJECT STANDARD-GENERIC-FUNCTION STANDARD-METHOD STANDARD
  35.   ))
  36. #Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <STANDARD-CLASS>)
  37.    <STANDARD-CLASS>
  38.   )
  39. #Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <STRUCTURE-CLASS>)
  40.    <STRUCTURE-CLASS>
  41.   )
  42. #Y(#:TOP-LEVEL-FORM-9 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <BUILT-IN-CLASS>)
  43.    <BUILT-IN-CLASS>
  44.   )
  45. #Y(#:TOP-LEVEL-FORM-10 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <STANDARD-OBJECT>)
  46.    <STANDARD-OBJECT>
  47.   )
  48. #Y(#:TOP-LEVEL-FORM-11 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01)
  49.    (SPECIAL <STANDARD-GENERIC-FUNCTION>) <STANDARD-GENERIC-FUNCTION>
  50.   )
  51. #Y(#:TOP-LEVEL-FORM-12 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <STANDARD-METHOD>)
  52.    <STANDARD-METHOD>
  53.   )
  54. #Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <ARRAY>) <ARRAY>)
  55. #Y(#:TOP-LEVEL-FORM-14 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <BIT-VECTOR>)
  56.    <BIT-VECTOR>
  57.   )
  58. #Y(#:TOP-LEVEL-FORM-15 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <CHARACTER>) <CHARACTER>)
  59. #Y(#:TOP-LEVEL-FORM-16 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <COMPLEX>) <COMPLEX>)
  60. #Y(#:TOP-LEVEL-FORM-17 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <CONS>) <CONS>)
  61. #Y(#:TOP-LEVEL-FORM-18 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <FLOAT>) <FLOAT>)
  62. #Y(#:TOP-LEVEL-FORM-19 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <FUNCTION>) <FUNCTION>)
  63. #Y(#:TOP-LEVEL-FORM-20 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <HASH-TABLE>)
  64.    <HASH-TABLE>
  65.   )
  66. #Y(#:TOP-LEVEL-FORM-21 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <INTEGER>) <INTEGER>)
  67. #Y(#:TOP-LEVEL-FORM-22 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <LIST>) <LIST>)
  68. #Y(#:TOP-LEVEL-FORM-23 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <NULL>) <NULL>)
  69. #Y(#:TOP-LEVEL-FORM-24 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <NUMBER>) <NUMBER>)
  70. #Y(#:TOP-LEVEL-FORM-25 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <PACKAGE>) <PACKAGE>)
  71. #Y(#:TOP-LEVEL-FORM-26 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <PATHNAME>) <PATHNAME>)
  72. #Y(#:TOP-LEVEL-FORM-27 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <RANDOM-STATE>)
  73.    <RANDOM-STATE>
  74.   )
  75. #Y(#:TOP-LEVEL-FORM-28 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <RATIO>) <RATIO>)
  76. #Y(#:TOP-LEVEL-FORM-29 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <RATIONAL>) <RATIONAL>)
  77. #Y(#:TOP-LEVEL-FORM-30 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <READTABLE>) <READTABLE>)
  78. #Y(#:TOP-LEVEL-FORM-31 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <REAL>) <REAL>)
  79. #Y(#:TOP-LEVEL-FORM-32 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <SEQUENCE>) <SEQUENCE>)
  80. #Y(#:TOP-LEVEL-FORM-33 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <STREAM>) <STREAM>)
  81. #Y(#:TOP-LEVEL-FORM-34 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <STRING>) <STRING>)
  82. #Y(#:TOP-LEVEL-FORM-35 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <SYMBOL>) <SYMBOL>)
  83. #Y(#:TOP-LEVEL-FORM-36 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <T>) <T>)
  84. #Y(#:TOP-LEVEL-FORM-37 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL <VECTOR>) <VECTOR>)
  85. #Y(#:TOP-LEVEL-FORM-38 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  86.    STD-ALLOCATE-INSTANCE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  87.    #Y(STD-ALLOCATE-INSTANCE
  88.       #32Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 0D 9A 57 74 D7 A8 D8 AA 77 02 5C 03 19 04 A9 2E
  89.            01 19 03
  90.           )
  91.       2. SYSTEM::MACRO-CALL-ERROR ALLOCATE-STD-INSTANCE CLASS-INSTANCE-SLOT-COUNT
  92.   )  )
  93. #Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FIND-CLASS
  94.    SYSTEM::REMOVE-OLD-DEFINITIONS
  95.    #Y(FIND-CLASS
  96.       #44Y(01 00 02 00 00 0D 3A 02 02 7A 02 AA 8B 03 0D AA D7 37 01 6E 76 A7 85 03 0D 15 19 04 D5
  97.            D6 AC 5E 02 D9 D6 AD 5E 02 8E 03 78 00 19 05
  98.           )
  99.       "~S: argument ~S is not a symbol" FIND-CLASS CLASS CLASS-P "~S: ~S does not name a class"
  100.   )  )
  101. #Y(#:TOP-LEVEL-FORM-40 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C3 19 01)
  102.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) SYSTEM::REMOVE-OLD-DEFINITIONS
  103.    #Y(#1=(SETF FIND-CLASS)
  104.       #54Y(02 00 02 00 00 0E AA 8B 03 1D AB 85 02 1E AA DA 37 01 6E 76 A7 85 06 06 A7 6B 07 9D 21
  105.            13 16 01 AA DA AD 31 7A 19 05 D5 D6 AC 5E 02 D8 D9 AD 5E 02 DD DE A9 5E 02
  106.           )
  107.       "~S: argument ~S is not a symbol" (SETF FIND-CLASS) CLASS-P "~S: ~S is not a class"
  108.       (SETF FIND-CLASS) CLASS BUILT-IN-CLASS-P CLASS-NAME "~S: cannot redefine built-in class ~S"
  109.       (SETF FIND-CLASS)
  110.      )
  111.    #1#
  112.   )
  113. #Y(#:TOP-LEVEL-FORM-41 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01) SLOT-VALUE
  114.    SYSTEM::SETF-EXPANDER SET-SLOT-VALUE SETF SYSTEM::%SET-DOCUMENTATION
  115.   )
  116. #Y(#:TOP-LEVEL-FORM-42 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) WITH-SLOTS
  117.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  118.    #Y(WITH-SLOTS
  119.       #196Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 3A 9A 57 74 9B 57 57 74 9C 57 57 75 01 02
  120.             AB 8B 08 2E AB 5F A8 88 92 80 41 83 01 00 14 99 1F 11 A8 6E 41 24 04 1F 83 01 00 99 57
  121.             56 F7 A7 8B 03 17 A8 8A 03 18 C7 14 D8 AA 5E 02 A9 2E 01 19 03 D7 D8 AD 5E 02 C5 1A 6E
  122.             DB D8 A9 5E 02 A7 80 04 A8 80 03 16 01 7F 01 1A FF BA 16 02 A9 5F AF 30 60 41 02 37 01
  123.             6E 82 DD A8 AF 77 02 77 01 DE 5F AF 6E 43 AF 6E 43 1A 25 16 03 1A 26 E1 9E 76 5C 01 1A
  124.             27 90 01 99 1F 70 90 01 A8 DF B1 E0 AB 77 02 77 03 77 02 80 04 16 02 7F 01 7F 00 99 20
  125.             63 16 02 A7 7C A3 00 8E 05 53 00 14 AE 32 02 20 78 02 5C 03 19 0B
  126.            )
  127.       3. SYSTEM::MACRO-CALL-ERROR "~S: not a list of slots: ~S" WITH-SLOTS 2.
  128.       "~S: invalid slot and variable specification ~S" "~S: variable ~S should be a symbol"
  129.       "~S: slot name ~S should be a symbol" LET SYMBOL-MACROLET SLOT-VALUE QUOTE DECLARE
  130.   )  )
  131. #Y(#:TOP-LEVEL-FORM-43 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) WITH-ACCESSORS
  132.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  133.    #Y(WITH-ACCESSORS
  134.       #164Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 32 9A 57 74 9B 57 57 74 9C 57 57 75 A9 8B
  135.             08 28 A9 5F A8 88 92 35 83 01 00 1F 22 A7 6E 41 24 04 1C 90 00 8B 03 1C 98 57 74 8A 03
  136.             1B DC D8 9A 57 74 5E 02 A9 2E 01 19 03 D7 D8 AB 5E 02 DA D8 A9 5E 02 DB D8 9A 1A 69 7F
  137.             01 1A 47 16 02 A7 5F AD 30 60 41 02 37 01 6E 82 DD A8 AD 77 02 77 01 DE 5F B0 1A 19 DF
  138.             9E 76 5C 01 1A 1F 90 00 90 00 99 57 74 AF 77 02 77 02 80 02 16 01 7F 00 98 20 6B 16 01
  139.             A7 7C A3 00 8E 05 5B 00 14 AE 32 02 20 78 02 5C 03 19 09
  140.            )
  141.       3. SYSTEM::MACRO-CALL-ERROR "~S: not a list of slots: ~S" WITH-ACCESSORS 2.
  142.       "~S: invalid accessor and variable specification ~S" "~S: variable ~S should be a symbol"
  143.       "~S: accessor name ~S should be a symbol" LET SYMBOL-MACROLET DECLARE
  144.   )  )
  145. #Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEFINE-STRUCTURE-CLASS
  146.    SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DEFINE-STRUCTURE-CLASS #9Y(01 00 00 00 00 02 00 19 02))
  147.   )
  148. #Y(#:TOP-LEVEL-FORM-45 #12Y(00 00 00 00 00 01 D5 30 E2 00 19 01)
  149.    #Y(#:TOP-LEVEL-FORM-45-1 #12Y(01 00 00 00 00 02 A8 D5 31 7B 19 02) CLASS)
  150.   )
  151. #Y(#:TOP-LEVEL-FORM-46
  152.    #33Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 C5 F8 6D 63 31 75
  153.         C0 19 01
  154.        )
  155.    EMPTY-HT "~S redefines the constant ~S. Its old value was ~S."
  156.    (DEFCONSTANT EMPTY-HT (MAKE-HASH-TABLE :TEST #'EQ :SIZE 0.)) WARN #.#'EQ 0.
  157.   )
  158. #Y(#:TOP-LEVEL-FORM-47
  159.    #287Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 D5 DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
  160.          DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 30 5B E4 2E 01 E4 DF E5 31 7A E4 E6 31 74
  161.          E7 30 5B E8 30 5B E9 2E 01 E9 DF EA 31 7A E9 EB 31 74 EC 30 5B ED 30 5B EE 2E 01 EE DF EF
  162.          31 7A EE F0 31 74 F1 30 5B F2 30 5B F3 2E 01 F3 DF F4 31 7A F3 F5 31 74 61 21 30 5B 61 22
  163.          30 5B 61 23 2E 01 61 23 DF 61 24 31 7A 61 23 61 25 31 74 61 26 30 5B 61 27 30 5B 61 28 2E
  164.          01 61 28 DF 61 29 31 7A 61 28 61 2A 31 74 E4 61 2B 61 2C 03 2D 76 31 7A E4 61 2E 5F 2C 03
  165.          2F E9 61 2B 61 2C 03 30 76 31 7A E9 61 2E 5F 2C 03 2F EE 61 2B 61 2C 03 31 76 31 7A EE 61
  166.          2E 5F 2C 03 2F F3 61 2B 61 2C 03 32 76 31 7A F3 61 2E 5F 2C 03 2F 61 23 61 2B 61 2C 03 33
  167.          76 31 7A 61 23 61 2E 5F 2C 03 2F 61 28 61 2B 61 2C 03 34 76 31 7A 61 28 61 2E 5F 2C 03 2F
  168.          D8 61 35 5F 2C 03 2F D8 61 36 61 37 31 7A C3 19 01
  169.         )
  170.    MAKE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
  171.    #Y(MAKE-CLASS
  172.       #69Y(00 00 00 00 80 1B 06 00 00 00 3C 06 3C 05 3C 04 3C 03 3C 02 3A 01 03 0E 06 F7 DC DD 6E
  173.            2C DE A8 DF B1 31 2B DE A8 E0 B0 31 2B DE A8 E1 AF 31 2B DE A8 E2 AE 31 2B DE A8 E3 AD
  174.            31 2B DE A8 E4 AC 31 2B 15 19 07
  175.           )
  176.       :METACLASS :CLASSNAME :DIRECT-SUPERCLASSES :ALL-SUPERCLASSES :PRECEDENCE-LIST
  177.       :SLOT-LOCATION-TABLE EMPTY-HT #1=(CLASS) 7. CLASS 1. 2. 3. 4. 5. 6.
  178.      )
  179.    CLASS SYSTEM::DEFSTRUCT-DESCRIPTION #1#
  180.    ((METACLASS 1. NIL T NIL) (CLASSNAME 2. NIL T NIL) (DIRECT-SUPERCLASSES 3. NIL T NIL)
  181.     (ALL-SUPERCLASSES 4. NIL T NIL) (PRECEDENCE-LIST 5. NIL T NIL)
  182.     (SLOT-LOCATION-TABLE 6. EMPTY-HT T NIL)
  183.    )
  184.    DEFINE-STRUCTURE-CLASS (INLINE COPY-CLASS) COPY-CLASS SYSTEM::INLINE-EXPANSION
  185.    ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-CLASS))
  186.     (BLOCK COPY-CLASS (SYSTEM::%COPY-STRUCTURE STRUCTURE))
  187.    )
  188.    #Y(COPY-CLASS #11Y(01 00 00 00 00 02 A8 31 2D 19 02)) (FUNCTION CLASS-METACLASS (CLASS) T)
  189.    (INLINE CLASS-METACLASS) CLASS-METACLASS
  190.    (#2=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN CLASS-METACLASS))
  191.     (BLOCK CLASS-METACLASS (THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 1.)))
  192.    )
  193.    #Y(CLASS-METACLASS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) CLASS 1.)
  194.    (FUNCTION CLASS-CLASSNAME (CLASS) T) (INLINE CLASS-CLASSNAME) CLASS-CLASSNAME
  195.    (#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-CLASSNAME))
  196.     (BLOCK CLASS-CLASSNAME (THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 2.)))
  197.    )
  198.    #Y(CLASS-CLASSNAME #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) CLASS 2.)
  199.    (FUNCTION CLASS-DIRECT-SUPERCLASSES (CLASS) T) (INLINE CLASS-DIRECT-SUPERCLASSES)
  200.    CLASS-DIRECT-SUPERCLASSES
  201.    (#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-DIRECT-SUPERCLASSES))
  202.     (BLOCK CLASS-DIRECT-SUPERCLASSES (THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 3.)))
  203.    )
  204.    #Y(CLASS-DIRECT-SUPERCLASSES #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) CLASS 3.)
  205.    (FUNCTION CLASS-ALL-SUPERCLASSES (CLASS) T) (INLINE CLASS-ALL-SUPERCLASSES)
  206.    CLASS-ALL-SUPERCLASSES
  207.    (#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-ALL-SUPERCLASSES))
  208.     (BLOCK CLASS-ALL-SUPERCLASSES (THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 4.)))
  209.    )
  210.    #Y(CLASS-ALL-SUPERCLASSES #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) CLASS 4.)
  211.    (FUNCTION CLASS-PRECEDENCE-LIST (CLASS) T) (INLINE CLASS-PRECEDENCE-LIST) CLASS-PRECEDENCE-LIST
  212.    (#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-PRECEDENCE-LIST))
  213.     (BLOCK CLASS-PRECEDENCE-LIST (THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 5.)))
  214.    )
  215.    #Y(CLASS-PRECEDENCE-LIST #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) CLASS 5.)
  216.    (FUNCTION CLASS-SLOT-LOCATION-TABLE (CLASS) T) (INLINE CLASS-SLOT-LOCATION-TABLE)
  217.    CLASS-SLOT-LOCATION-TABLE
  218.    (#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-SLOT-LOCATION-TABLE))
  219.     (BLOCK CLASS-SLOT-LOCATION-TABLE (THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 6.)))
  220.    )
  221.    #Y(CLASS-SLOT-LOCATION-TABLE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) CLASS 6.)
  222.    SYSTEM::SETF-EXPANDER -1.
  223.    #Y(SETF-CLASS-METACLASS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  224.       SYSTEM::%STRUCTURE-STORE 'CLASS 1.
  225.      )
  226.    SETF SYSTEM::%SET-DOCUMENTATION
  227.    #Y(SETF-CLASS-CLASSNAME #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  228.       SYSTEM::%STRUCTURE-STORE 'CLASS 2.
  229.      )
  230.    #Y(SETF-CLASS-DIRECT-SUPERCLASSES #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  231.       SYSTEM::%STRUCTURE-STORE 'CLASS 3.
  232.      )
  233.    #Y(SETF-CLASS-ALL-SUPERCLASSES #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  234.       SYSTEM::%STRUCTURE-STORE 'CLASS 4.
  235.      )
  236.    #Y(SETF-CLASS-PRECEDENCE-LIST #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  237.       SYSTEM::%STRUCTURE-STORE 'CLASS 5.
  238.      )
  239.    #Y(SETF-CLASS-SLOT-LOCATION-TABLE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  240.       SYSTEM::%STRUCTURE-STORE 'CLASS 6.
  241.      )
  242.    STRUCTURE SYSTEM::STRUCTURE-PRINT
  243.    #Y(CLASS-PRINT-FUNCTION #14Y(03 00 00 00 00 04 AA AA AA 2C 03 00 19 04) PRINT-CLASS)
  244.   )
  245. #Y(#:TOP-LEVEL-FORM-48
  246.    #87Y(00 00 00 00 00 01 00 2A 01 D5 C1 58 0B 00 00 D7 2E 03 D7 A8 69 04 01 31 74 D5 DA 64 02 00
  247.         60 D7 DB 6F 04 00 31 7A 16 01 D5 2E 07 DD 30 5B DE 2E 03 DE DF E0 31 7A DE E1 31 74 E2 30
  248.         5B E3 2E 03 E3 DF E4 31 7A E3 E5 31 74 D5 E6 5F 2C 03 12 D5 E8 E9 31 7A C0 19 01
  249.        )
  250.    BUILT-IN-CLASS #.(SVREF (GET 'CLASS 'SYSTEM::DEFSTRUCT-DESCRIPTION) 0.) MAKE-BUILT-IN-CLASS
  251.    SYSTEM::REMOVE-OLD-DEFINITIONS
  252.    #Y(MAKE-BUILT-IN-CLASS
  253.       #71Y(00 00 00 00 80 1B 06 00 01 00 3C 06 3C 05 3C 04 3C 03 3C 02 3A 01 03 0E 07 F7 65 00 01
  254.            DD 6E 2C DE A8 DF B1 31 2B DE A8 E0 B0 31 2B DE A8 E1 AF 31 2B DE A8 E2 AE 31 2B DE A8
  255.            E3 AD 31 2B DE A8 E4 AC 31 2B 15 19 07
  256.           )
  257.       NIL :METACLASS :CLASSNAME :DIRECT-SUPERCLASSES :ALL-SUPERCLASSES :PRECEDENCE-LIST
  258.       :SLOT-LOCATION-TABLE EMPTY-HT 7. BUILT-IN-CLASS 1. 2. 3. 4. 5. 6.
  259.      )
  260.    SYSTEM::DEFSTRUCT-DESCRIPTION
  261.    ((METACLASS 1. NIL T NIL) (CLASSNAME 2. NIL T NIL) (DIRECT-SUPERCLASSES 3. NIL T NIL)
  262.     (ALL-SUPERCLASSES 4. NIL T NIL) (PRECEDENCE-LIST 5. NIL T NIL)
  263.     (SLOT-LOCATION-TABLE 6. EMPTY-HT T NIL)
  264.    )
  265.    DEFINE-STRUCTURE-CLASS (INLINE BUILT-IN-CLASS-P) BUILT-IN-CLASS-P SYSTEM::INLINE-EXPANSION
  266.    ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN BUILT-IN-CLASS-P))
  267.     (BLOCK BUILT-IN-CLASS-P (SYSTEM::%STRUCTURE-TYPE-P 'BUILT-IN-CLASS SYSTEM::OBJECT))
  268.    )
  269.    #Y(BUILT-IN-CLASS-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) BUILT-IN-CLASS)
  270.    (INLINE COPY-BUILT-IN-CLASS) COPY-BUILT-IN-CLASS
  271.    ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-BUILT-IN-CLASS))
  272.     (BLOCK COPY-BUILT-IN-CLASS (SYSTEM::%COPY-STRUCTURE STRUCTURE))
  273.    )
  274.    #Y(COPY-BUILT-IN-CLASS #11Y(01 00 00 00 00 02 A8 31 2D 19 02)) STRUCTURE
  275.    SYSTEM::%SET-DOCUMENTATION SYSTEM::STRUCTURE-PRINT
  276.    #Y(BUILT-IN-CLASS-PRINT-FUNCTION #14Y(03 00 00 00 00 04 AA AA AA 2C 03 00 19 04) PRINT-CLASS)
  277.   )
  278. #Y(#:TOP-LEVEL-FORM-49 #11Y(00 00 00 00 00 01 D5 30 5B 19 01) (NOTINLINE BUILT-IN-CLASS-P))
  279. #Y(#:TOP-LEVEL-FORM-50
  280.    #87Y(00 00 00 00 00 01 00 2A 01 D5 C1 58 0B 00 00 D7 2E 03 D7 A8 69 04 01 31 74 D5 DA 64 02 00
  281.         60 D7 DB 6F 04 00 31 7A 16 01 D5 2E 07 DD 30 5B DE 2E 03 DE DF E0 31 7A DE E1 31 74 E2 30
  282.         5B E3 2E 03 E3 DF E4 31 7A E3 E5 31 74 D5 E6 5F 2C 03 12 D5 E8 E9 31 7A C0 19 01
  283.        )
  284.    STRUCTURE-CLASS #.(SVREF (GET 'CLASS 'SYSTEM::DEFSTRUCT-DESCRIPTION) 0.) MAKE-STRUCTURE-CLASS
  285.    SYSTEM::REMOVE-OLD-DEFINITIONS
  286.    #Y(MAKE-STRUCTURE-CLASS
  287.       #71Y(00 00 00 00 80 1B 06 00 01 00 3C 06 3C 05 3C 04 3C 03 3C 02 3A 01 03 0E 07 F7 65 00 01
  288.            DD 6E 2C DE A8 DF B1 31 2B DE A8 E0 B0 31 2B DE A8 E1 AF 31 2B DE A8 E2 AE 31 2B DE A8
  289.            E3 AD 31 2B DE A8 E4 AC 31 2B 15 19 07
  290.           )
  291.       NIL :METACLASS :CLASSNAME :DIRECT-SUPERCLASSES :ALL-SUPERCLASSES :PRECEDENCE-LIST
  292.       :SLOT-LOCATION-TABLE EMPTY-HT 7. STRUCTURE-CLASS 1. 2. 3. 4. 5. 6.
  293.      )
  294.    SYSTEM::DEFSTRUCT-DESCRIPTION
  295.    ((METACLASS 1. NIL T NIL) (CLASSNAME 2. NIL T NIL) (DIRECT-SUPERCLASSES 3. NIL T NIL)
  296.     (ALL-SUPERCLASSES 4. NIL T NIL) (PRECEDENCE-LIST 5. NIL T NIL)
  297.     (SLOT-LOCATION-TABLE 6. EMPTY-HT T NIL)
  298.    )
  299.    DEFINE-STRUCTURE-CLASS (INLINE STRUCTURE-CLASS-P) STRUCTURE-CLASS-P SYSTEM::INLINE-EXPANSION
  300.    ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN STRUCTURE-CLASS-P))
  301.     (BLOCK STRUCTURE-CLASS-P (SYSTEM::%STRUCTURE-TYPE-P 'STRUCTURE-CLASS SYSTEM::OBJECT))
  302.    )
  303.    #Y(STRUCTURE-CLASS-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) STRUCTURE-CLASS)
  304.    (INLINE COPY-STRUCTURE-CLASS) COPY-STRUCTURE-CLASS
  305.    ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-STRUCTURE-CLASS))
  306.     (BLOCK COPY-STRUCTURE-CLASS (SYSTEM::%COPY-STRUCTURE STRUCTURE))
  307.    )
  308.    #Y(COPY-STRUCTURE-CLASS #11Y(01 00 00 00 00 02 A8 31 2D 19 02)) STRUCTURE
  309.    SYSTEM::%SET-DOCUMENTATION SYSTEM::STRUCTURE-PRINT
  310.    #Y(STRUCTURE-CLASS-PRINT-FUNCTION #14Y(03 00 00 00 00 04 AA AA AA 2C 03 00 19 04) PRINT-CLASS)
  311.   )
  312. #Y(#:TOP-LEVEL-FORM-51
  313.    #370Y(00 00 00 00 00 01 00 2A 01 D5 C1 58 0B 00 00 D7 2E 03 D7 A8 69 04 01 31 74 D5 DA 64 02 00
  314.          60 D7 DB 6F 04 00 31 7A 16 01 D5 2E 07 DD 30 5B DE 2E 03 DE DF E0 31 7A DE E1 31 74 E2 30
  315.          5B E3 2E 03 E3 DF E4 31 7A E3 E5 31 74 E6 30 5B E7 30 5B E8 2E 03 E8 DF E9 31 7A E8 EA 31
  316.          74 EB 30 5B EC 30 5B ED 2E 03 ED DF EE 31 7A ED EF 31 74 F0 30 5B F1 30 5B F2 2E 03 F2 DF
  317.          F3 31 7A F2 F4 31 74 F5 30 5B 61 21 30 5B 61 22 2E 03 61 22 DF 61 23 31 7A 61 22 61 24 31
  318.          74 61 25 30 5B 61 26 30 5B 61 27 2E 03 61 27 DF 61 28 31 7A 61 27 61 29 31 74 61 2A 30 5B
  319.          61 2B 30 5B 61 2C 2E 03 61 2C DF 61 2D 31 7A 61 2C 61 2E 31 74 61 2F 30 5B 61 30 30 5B 61
  320.          31 2E 03 61 31 DF 61 32 31 7A 61 31 61 33 31 74 E8 61 34 61 35 03 36 76 31 7A E8 61 37 5F
  321.          2C 03 38 ED 61 34 61 35 03 39 76 31 7A ED 61 37 5F 2C 03 38 F2 61 34 61 35 03 3A 76 31 7A
  322.          F2 61 37 5F 2C 03 38 61 22 61 34 61 35 03 3B 76 31 7A 61 22 61 37 5F 2C 03 38 61 27 61 34
  323.          61 35 03 3C 76 31 7A 61 27 61 37 5F 2C 03 38 61 2C 61 34 61 35 03 3D 76 31 7A 61 2C 61 37
  324.          5F 2C 03 38 61 31 61 34 61 35 03 3E 76 31 7A 61 31 61 37 5F 2C 03 38 D5 61 3F 5F 2C 03 38
  325.          D5 61 40 61 41 31 7A C0 19 01
  326.         )
  327.    STANDARD-CLASS #.(SVREF (GET 'CLASS 'SYSTEM::DEFSTRUCT-DESCRIPTION) 0.) MAKE-STANDARD-CLASS
  328.    SYSTEM::REMOVE-OLD-DEFINITIONS
  329.    #Y(MAKE-STANDARD-CLASS
  330.       #127Y(00 00 00 00 80 1B 0D 00 01 00 3C 0D 3C 0C 3C 0B 3C 0A 3C 09 3A 08 03 0E 0E FE 3C 07 3C
  331.             06 3C 05 3C 04 3C 03 3C 02 3C 01 65 00 01 E4 6E 2C E5 A8 E6 B8 31 2B E5 A8 E7 B7 31 2B
  332.             E5 A8 E8 B6 31 2B E5 A8 E9 B5 31 2B E5 A8 EA B4 31 2B E5 A8 EB B3 31 2B E5 A8 EC B2 31
  333.             2B E5 A8 ED B1 31 2B E5 A8 EE B0 31 2B E5 A8 EF AF 31 2B E5 A8 F0 AE 31 2B E5 A8 F1 AD
  334.             31 2B E5 A8 F2 AC 31 2B 15 19 0E
  335.            )
  336.       NIL :METACLASS :CLASSNAME :DIRECT-SUPERCLASSES :ALL-SUPERCLASSES :PRECEDENCE-LIST
  337.       :SLOT-LOCATION-TABLE :DIRECT-SLOTS :SLOTS :INSTANCE-SLOT-COUNT :SHARED-SLOTS
  338.       :DIRECT-DEFAULT-INITARGS :DEFAULT-INITARGS :VALID-INITARGS EMPTY-HT 14. STANDARD-CLASS 1. 2.
  339.       3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.
  340.      )
  341.    SYSTEM::DEFSTRUCT-DESCRIPTION
  342.    ((METACLASS 1. NIL T NIL) (CLASSNAME 2. NIL T NIL) (DIRECT-SUPERCLASSES 3. NIL T NIL)
  343.     (ALL-SUPERCLASSES 4. NIL T NIL) (PRECEDENCE-LIST 5. NIL T NIL)
  344.     (SLOT-LOCATION-TABLE 6. EMPTY-HT T NIL) (DIRECT-SLOTS 7. NIL T NIL) (SLOTS 8. NIL T NIL)
  345.     (INSTANCE-SLOT-COUNT 9. NIL T NIL) (SHARED-SLOTS 10. NIL T NIL)
  346.     (DIRECT-DEFAULT-INITARGS 11. NIL T NIL) (DEFAULT-INITARGS 12. NIL T NIL)
  347.     (VALID-INITARGS 13. NIL T NIL)
  348.    )
  349.    DEFINE-STRUCTURE-CLASS (INLINE STANDARD-CLASS-P) STANDARD-CLASS-P SYSTEM::INLINE-EXPANSION
  350.    ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN STANDARD-CLASS-P))
  351.     (BLOCK STANDARD-CLASS-P (SYSTEM::%STRUCTURE-TYPE-P 'STANDARD-CLASS SYSTEM::OBJECT))
  352.    )
  353.    #Y(STANDARD-CLASS-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) STANDARD-CLASS)
  354.    (INLINE COPY-STANDARD-CLASS) COPY-STANDARD-CLASS
  355.    ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-STANDARD-CLASS))
  356.     (BLOCK COPY-STANDARD-CLASS (SYSTEM::%COPY-STRUCTURE STRUCTURE))
  357.    )
  358.    #Y(COPY-STANDARD-CLASS #11Y(01 00 00 00 00 02 A8 31 2D 19 02))
  359.    (FUNCTION CLASS-DIRECT-SLOTS (STANDARD-CLASS) T) (INLINE CLASS-DIRECT-SLOTS) CLASS-DIRECT-SLOTS
  360.    (#1=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN CLASS-DIRECT-SLOTS))
  361.     (BLOCK CLASS-DIRECT-SLOTS (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 7.)))
  362.    )
  363.    #Y(CLASS-DIRECT-SLOTS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-CLASS 7.)
  364.    (FUNCTION CLASS-SLOTS (STANDARD-CLASS) T) (INLINE CLASS-SLOTS) CLASS-SLOTS
  365.    (#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-SLOTS))
  366.     (BLOCK CLASS-SLOTS (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 8.)))
  367.    )
  368.    #Y(CLASS-SLOTS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-CLASS 8.)
  369.    (FUNCTION CLASS-INSTANCE-SLOT-COUNT (STANDARD-CLASS) T) (INLINE CLASS-INSTANCE-SLOT-COUNT)
  370.    CLASS-INSTANCE-SLOT-COUNT
  371.    (#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-INSTANCE-SLOT-COUNT))
  372.     (BLOCK CLASS-INSTANCE-SLOT-COUNT
  373.      (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 9.))
  374.    ))
  375.    #Y(CLASS-INSTANCE-SLOT-COUNT #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-CLASS 9.)
  376.    (FUNCTION CLASS-SHARED-SLOTS (STANDARD-CLASS) T) (INLINE CLASS-SHARED-SLOTS) CLASS-SHARED-SLOTS
  377.    (#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-SHARED-SLOTS))
  378.     (BLOCK CLASS-SHARED-SLOTS (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 10.)))
  379.    )
  380.    #Y(CLASS-SHARED-SLOTS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-CLASS 10.)
  381.    (FUNCTION CLASS-DIRECT-DEFAULT-INITARGS (STANDARD-CLASS) T)
  382.    (INLINE CLASS-DIRECT-DEFAULT-INITARGS) CLASS-DIRECT-DEFAULT-INITARGS
  383.    (#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-DIRECT-DEFAULT-INITARGS))
  384.     (BLOCK CLASS-DIRECT-DEFAULT-INITARGS
  385.      (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 11.))
  386.    ))
  387.    #Y(CLASS-DIRECT-DEFAULT-INITARGS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-CLASS 11.
  388.      )
  389.    (FUNCTION CLASS-DEFAULT-INITARGS (STANDARD-CLASS) T) (INLINE CLASS-DEFAULT-INITARGS)
  390.    CLASS-DEFAULT-INITARGS
  391.    (#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-DEFAULT-INITARGS))
  392.     (BLOCK CLASS-DEFAULT-INITARGS
  393.      (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 12.))
  394.    ))
  395.    #Y(CLASS-DEFAULT-INITARGS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-CLASS 12.)
  396.    (FUNCTION CLASS-VALID-INITARGS (STANDARD-CLASS) T) (INLINE CLASS-VALID-INITARGS)
  397.    CLASS-VALID-INITARGS
  398.    (#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-VALID-INITARGS))
  399.     (BLOCK CLASS-VALID-INITARGS (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 13.))
  400.    ))
  401.    #Y(CLASS-VALID-INITARGS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-CLASS 13.)
  402.    SYSTEM::SETF-EXPANDER -1.
  403.    #Y(SETF-CLASS-DIRECT-SLOTS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  404.       SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 7.
  405.      )
  406.    SETF SYSTEM::%SET-DOCUMENTATION
  407.    #Y(SETF-CLASS-SLOTS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  408.       SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 8.
  409.      )
  410.    #Y(SETF-CLASS-INSTANCE-SLOT-COUNT #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  411.       SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 9.
  412.      )
  413.    #Y(SETF-CLASS-SHARED-SLOTS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  414.       SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 10.
  415.      )
  416.    #Y(SETF-CLASS-DIRECT-DEFAULT-INITARGS
  417.       #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) SYSTEM::%STRUCTURE-STORE
  418.       'STANDARD-CLASS 11.
  419.      )
  420.    #Y(SETF-CLASS-DEFAULT-INITARGS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  421.       SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 12.
  422.      )
  423.    #Y(SETF-CLASS-VALID-INITARGS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  424.       SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 13.
  425.      )
  426.    STRUCTURE SYSTEM::STRUCTURE-PRINT
  427.    #Y(STANDARD-CLASS-PRINT-FUNCTION #14Y(03 00 00 00 00 04 AA AA AA 2C 03 00 19 04) PRINT-CLASS)
  428.   )
  429. #Y(#:TOP-LEVEL-FORM-52
  430.    #43Y(00 00 00 00 00 01 D5 D6 37 01 6E 76 C2 5A 14 D8 D9 DA DB DC DD DE DF E0 E1 E2 E3 E4 E5 E6
  431.         E7 E8 E9 EA 60 EB 6F 15 00 2F 17 19 01
  432.        )
  433.    CLASS SYSTEM::DEFSTRUCT-DESCRIPTION 0. ARRAY BIT-VECTOR CHARACTER COMPLEX CONS FLOAT FUNCTION
  434.    HASH-TABLE INTEGER NULL PACKAGE PATHNAME RANDOM-STATE RATIO READTABLE STANDARD-GENERIC-FUNCTION
  435.    STREAM STRING SYMBOL VECTOR %DEFCLOS
  436.   )
  437. #Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PRINT-CLASS
  438.    SYSTEM::REMOVE-OLD-DEFINITIONS
  439.    #Y(PRINT-CLASS
  440.       #34Y(03 00 00 00 00 04 00 2A 02 7B 04 00 00 7B 03 00 01 A7 69 00 01 64 01 00 64 02 01 D6 60
  441.            2C 05 02 19 05
  442.           )
  443.       #Y(PRINT-CLASS-1
  444.          #24Y(00 00 00 00 00 01 65 00 01 D6 A8 D7 7D 2A 00 37 0B 65 00 02 30 80 19 01) NIL CLASS 2.
  445.         )
  446.       :TYPE SYSTEM::WRITE-UNREADABLE
  447.   )  )
  448. #Y(#:TOP-LEVEL-FORM-54 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DEFCLASS
  449.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  450.    #Y(DEFCLASS
  451.       #955Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2D 1E 9A 57 74 9B 57 57 74 9C 57 57 57 74 9D 57 57
  452.             57 75 AA 8B 03 0E A9 8B 08 0F 5F AA 1A 80 CD A9 2E 01 19 03 D7 D8 AC 5E 02 D9 D8 9D 1A
  453.             82 BC DA D8 A0 1A 83 43 DD D8 AE AD 5E 03 DE D8 B3 AB 5E 03 DF D8 BC B4 5E 03 CD 1A 81
  454.             0A A7 80 0A 1A 81 16 A7 85 0C 72 A8 23 0E 72 A8 24 0F 81 09 98 1A 12 D1 1A 80 F0 A7 8B
  455.             03 78 A7 80 0B A7 80 0A E7 A8 5C 02 14 80 09 1A 80 EE E9 D8 BF D3 1A 80 54 EC D8 BF B7
  456.             EA EB AD 5E 06 8E 08 6D A7 23 15 04 A7 24 16 6C 98 FE 1A 80 CE 03 19 1A 80 B7 A7 8B 03
  457.             77 A7 80 07 1A 80 BF F0 D8 BF 03 1A 1A 25 8E 06 76 DC A8 5C 02 FC A7 2E 1C FB 1A 80 A9
  458.             F3 D8 BF 03 1D 1A 0F 8E 04 76 A7 5C 01 FA 1A 80 98 F5 D8 BF 03 1F 14 B8 5E 04 90 00 A7
  459.             8B 03 FF 50 DB DC A9 77 02 77 02 80 02 16 01 7F 00 98 20 69 16 01 A7 7C A3 00 5F AA 8B
  460.             08 FF 3A 5F AB 98 1F 81 6C 90 00 A7 5F 9A 1F 06 83 02 01 9A 57 F6 A8 8B 03 FF 28 01 09
  461.             B0 6E 41 8A 87 FF 25 B0 98 1F 80 4F 90 00 99 57 74 A8 E0 37 03 88 B3 FF 23 A8 23 10 FF
  462.             32 A8 23 13 FF 51 A8 23 18 FF 61 A8 23 1A FF 6D A8 23 1D FF 7E A8 24 1F 12 8E 03 FF 80
  463.             A7 8A 04 12 03 21 14 D8 BF 04 10 1A 82 10 61 22 D8 BF B7 AC 5E 04 98 F9 16 02 98 57 57
  464.             F6 1A FF AD 16 01 AE 7D 43 07 AD 7D 43 06 AE 5F 1A 1D 83 01 00 61 23 A8 61 24 BF 77 02
  465.             77 01 61 25 61 24 DC B9 77 02 77 03 77 04 80 10 7F 01 A8 89 92 5F 16 02 AD 5F 1A 80 77
  466.             61 2A DC B4 6E 43 77 02 5C 02 1A 80 7D 61 2B DC B4 77 02 5C 02 1A 80 78 61 2C DC B4 77
  467.             02 5C 02 1A 80 73 03 2D 1A 80 75 61 2E DC B4 6E 43 77 02 5C 02 1A 80 6E 61 2F B2 5C 02
  468.             1A 80 6C F2 DC 90 0C 77 02 5C 02 1A 80 67 F4 DC B3 77 02 5C 02 1A 80 63 83 01 00 61 23
  469.             A8 61 26 61 24 62 19 77 02 77 02 E7 61 25 61 24 DC BA 77 02 77 03 03 27 78 02 77 04 80
  470.             10 7F 01 A8 89 92 57 16 02 61 28 61 29 DC B4 77 02 8E 0B FF 77 00 14 8E 0B FF 7E 00 14
  471.             8E 0B FF 83 00 14 B2 23 16 FF 87 00 14 8E 0B FF 86 00 14 8E 0B FF 8D 00 14 8E 0A FF 8F
  472.             00 14 8E 0A FF 94 00 14 32 08 20 5D 03 16 0A F6 80 02 16 01 7F 00 1A FE 90 16 01 A7 7C
  473.             A3 00 61 30 5F 61 31 61 32 61 33 DC B3 77 02 61 34 61 28 A2 76 61 35 61 28 A2 76 01 03
  474.             B7 5F 1A 80 F5 83 01 00 14 8B 08 80 D8 A7 6E 41 24 36 80 D1 90 00 98 25 37 13 8F 05 10
  475.             1A 03 8F 04 0B 61 38 D8 04 18 1A 80 C0 8E 03 75 98 25 39 80 B1 03 3A 1A 80 A3 99 57 74
  476.             A7 8B 03 74 61 3B DB DC AA 77 02 77 02 5C 02 FC 16 02 1A 80 A9 99 57 74 A7 6E 41 8B 87
  477.             0D 61 3C D8 04 19 14 AC 5E 03 03 3E 1A 19 61 3D 61 28 01 02 AB 98 1F 27 90 00 8B 03 6D
  478.             90 00 AA 37 03 89 B3 0B 03 3F 14 D8 62 1E B1 90 04 5E 04 90 00 80 02 98 57 74 80 01 98
  479.             57 57 F6 1A 56 16 01 5F A9 6E 43 A9 6E 43 1A 1E 16 03 1A 1F 90 01 99 1F 77 90 01 DC A9
  480.             77 02 A8 6B 1C 77 02 AC 7C A2 04 16 02 7F 01 7F 00 99 20 63 16 02 A7 30 A3 16 03 76 5C
  481.             02 FB 16 02 1A 27 99 57 74 A7 8A 04 16 03 40 14 D8 62 19 9D 14 AB 5E 04 16 01 61 41 D8
  482.             04 17 14 AA 5E 03 F4 DC A9 77 02 5C 02 FA 16 02 7F 01 A8 89 92 FF 06 16 02 A9 A9 A9 32
  483.             03 20 16 03 78 06 77 03 AB 6E 43 DB DC B3 77 02 77 02 77 01 32 02 20 5D 03 19 0A
  484.            )
  485.       4. SYSTEM::MACRO-CALL-ERROR "~S: class name ~S should be a symbol" DEFCLASS
  486.       "~S ~S: expecting list of superclasses instead of ~S"
  487.       "~S ~S: superclass name ~S should be a symbol" FIND-CLASS QUOTE
  488.       "~S ~S: expecting list of slot specifications instead of ~S"
  489.       "~S ~S: slot name ~S should be a symbol"
  490.       "~S ~S: slot options for slot ~S don't come in pairs" (:READER :WRITER) FUNCTION-NAME-P
  491.       "~S ~S, slot option for slot ~S: ~S is not a function name" :READER :WRITER :ACCESSOR
  492.       "~S ~S, slot option for slot ~S: ~S is not a symbol" SETF :ALLOCATION
  493.       "~S ~S, slot option ~S for slot ~S may only be given once" :INSTANCE :CLASS
  494.       "~S ~S, slot option for slot ~S must have the value ~S or ~S, not ~S" :INITARG
  495.       "~S ~S, slot option for slot ~S: ~S is not a symbol" :INITFORM
  496.       "~S ~S, slot option ~S for slot ~S may only be given once" MAKE-INITER :TYPE
  497.       "~S ~S, slot option ~S for slot ~S may only be given once" :DOCUMENTATION
  498.       "~S ~S, slot option ~S for slot ~S may only be given once"
  499.       "~S ~S, slot option for slot ~S: ~S is not a string"
  500.       "~S ~S, slot option for slot ~S: ~S is not a valid slot option" DEFMETHOD OBJECT SLOT-VALUE
  501.       NEW-VALUE (NEW-VALUE) LIST :NAME :ACCESSORS :READERS :WRITERS (:ALLOCATION :CLASS) :INITARGS
  502.       :INITER LET EVAL-WHEN (COMPILE LOAD EVAL) ENSURE-CLASS :DIRECT-SUPERCLASSES :DIRECT-SLOTS 2.
  503.       #S(HASH-TABLE EQ (:DOCUMENTATION . 17.) (:DEFAULT-INITARGS . 6.) (:METACLASS . 1.))
  504.       "~S ~S, option ~S may only be given once"
  505.       #S(HASH-TABLE EQ (:DOCUMENTATION . 161.) (:DEFAULT-INITARGS . 31.) (:METACLASS . 7.))
  506.       "~S ~S, option ~S: ~S is not a symbol" :METACLASS
  507.       "~S ~S, option ~S: arguments don't come in pairs" :DIRECT-DEFAULT-INITARGS
  508.       "~S ~S, option ~S: ~S is not a symbol" "~S ~S, option ~S: ~S may only be given once"
  509.       "~S ~S, option ~S: ~S is not a string" "~S ~S: invalid option ~S"
  510.   )  )
  511. #Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-INITER
  512.    SYSTEM::REMOVE-OLD-DEFINITIONS
  513.    #Y(MAKE-INITER
  514.       #31Y(01 00 00 00 00 02 A8 88 5F 0E D5 D7 D8 5F AC 77 03 77 02 C4 5D 02 19 02 D5 D6 AA 5C 03
  515.            19 02
  516.           )
  517.       CONS 'NIL FUNCTION LAMBDA ('NIL)
  518.   )  )
  519. #Y(#:TOP-LEVEL-FORM-56
  520.    #228Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA DB 5F DC 6F 04 00 31 7A DD 2E 01 DD DE 31
  521.          74 DF 30 5B E0 30 5B E1 2E 01 E1 E2 E3 31 7A E1 E4 31 74 E5 30 5B E6 30 5B E7 2E 01 E7 E2
  522.          E8 31 7A E7 E9 31 74 EA 30 5B EB 30 5B EC 2E 01 EC E2 ED 31 7A EC EE 31 74 EF 30 5B F0 30
  523.          5B F1 2E 01 F1 E2 F2 31 7A F1 F3 31 74 F4 30 5B F5 30 5B 61 21 2E 01 61 21 E2 61 22 31 7A
  524.          61 21 61 23 31 74 E1 61 24 61 25 03 26 76 31 7A E1 61 27 5F 2C 03 28 E7 61 24 61 25 03 29
  525.          76 31 7A E7 61 27 5F 2C 03 28 EC 61 24 61 25 03 2A 76 31 7A EC 61 27 5F 2C 03 28 F1 61 24
  526.          61 25 03 2B 76 31 7A F1 61 27 5F 2C 03 28 61 21 61 24 61 25 03 2C 76 31 7A 61 21 61 27 5F
  527.          2C 03 28 D8 61 2D 5F 2C 03 28 D8 61 2E 31 7B C3 19 01
  528.         )
  529.    MAKE-SLOT-DEFINITION SYSTEM::REMOVE-OLD-DEFINITIONS
  530.    #Y(MAKE-SLOT-DEFINITION
  531.       #34Y(05 00 00 00 00 06 D5 37 07 6D 19 AD A8 C1 5B AC A8 C2 5B AB A8 C3 5B AA A8 C4 5B A9 A8
  532.            C5 5B 15 19 06
  533.           )
  534.       5. 0. 1. 2. 3. 4.
  535.      )
  536.    SLOT-DEFINITION SYSTEM::DEFSTRUCT-DESCRIPTION (SLOT-DEFINITION) VECTOR
  537.    ((NAME 0. NIL SYMBOL NIL) (ALLOCATION 1. :INSTANCE #1=(OR (MEMBER :CLASS :INSTANCE) CLASS) NIL)
  538.     (INITARGS 2. 'NIL LIST NIL) (LOCATION 3. NIL #2=(OR NULL INTEGER CONS) NIL)
  539.     (INITER 4. NIL #3=(OR NULL CONS) NIL)
  540.    )
  541.    COPY-SLOT-DEFINITION
  542.    #Y(COPY-SLOT-DEFINITION
  543.       #35Y(01 00 00 00 00 02 A8 6E 41 A7 37 07 6D 19 D5 1A 09 AB 99 5A 14 A9 9A 5B 81 00 A7 AA 8D
  544.            01 30 71 99 19 05
  545.           )
  546.       0.
  547.      )
  548.    (FUNCTION SLOTDEF-NAME (SLOT-DEFINITION) SYMBOL) (INLINE SLOTDEF-NAME) SLOTDEF-NAME
  549.    SYSTEM::INLINE-EXPANSION
  550.    (#4=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-NAME))
  551.     (BLOCK SLOTDEF-NAME (THE SYMBOL (SVREF SYSTEM::OBJECT 0.)))
  552.    )
  553.    #Y(SLOTDEF-NAME #11Y(01 00 00 00 00 02 A8 C0 5A 19 02) 0.)
  554.    (FUNCTION SLOTDEF-ALLOCATION (SLOT-DEFINITION) #1#) (INLINE SLOTDEF-ALLOCATION)
  555.    SLOTDEF-ALLOCATION
  556.    (#4# (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-ALLOCATION))
  557.     (BLOCK SLOTDEF-ALLOCATION (THE #1# (SVREF SYSTEM::OBJECT 1.)))
  558.    )
  559.    #Y(SLOTDEF-ALLOCATION #11Y(01 00 00 00 00 02 A8 C0 5A 19 02) 1.)
  560.    (FUNCTION SLOTDEF-INITARGS (SLOT-DEFINITION) LIST) (INLINE SLOTDEF-INITARGS) SLOTDEF-INITARGS
  561.    (#4# (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-INITARGS))
  562.     (BLOCK SLOTDEF-INITARGS (THE LIST (SVREF SYSTEM::OBJECT 2.)))
  563.    )
  564.    #Y(SLOTDEF-INITARGS #11Y(01 00 00 00 00 02 A8 C0 5A 19 02) 2.)
  565.    (FUNCTION SLOTDEF-LOCATION (SLOT-DEFINITION) #2#) (INLINE SLOTDEF-LOCATION) SLOTDEF-LOCATION
  566.    (#4# (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-LOCATION))
  567.     (BLOCK SLOTDEF-LOCATION (THE #2# (SVREF SYSTEM::OBJECT 3.)))
  568.    )
  569.    #Y(SLOTDEF-LOCATION #11Y(01 00 00 00 00 02 A8 C0 5A 19 02) 3.)
  570.    (FUNCTION SLOTDEF-INITER (SLOT-DEFINITION) #3#) (INLINE SLOTDEF-INITER) SLOTDEF-INITER
  571.    (#4# (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-INITER))
  572.     (BLOCK SLOTDEF-INITER (THE #3# (SVREF SYSTEM::OBJECT 4.)))
  573.    )
  574.    #Y(SLOTDEF-INITER #11Y(01 00 00 00 00 02 A8 C0 5A 19 02) 4.) SYSTEM::SETF-EXPANDER -1.
  575.    #Y(SETF-SLOTDEF-NAME #20Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 77 03 AB 5C 03 19 04) SETF
  576.       SVREF 0.
  577.      )
  578.    SETF SYSTEM::%SET-DOCUMENTATION
  579.    #Y(SETF-SLOTDEF-ALLOCATION #20Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 77 03 AB 5C 03 19 04)
  580.       SETF SVREF 1.
  581.      )
  582.    #Y(SETF-SLOTDEF-INITARGS #20Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 77 03 AB 5C 03 19 04) SETF
  583.       SVREF 2.
  584.      )
  585.    #Y(SETF-SLOTDEF-LOCATION #20Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 77 03 AB 5C 03 19 04) SETF
  586.       SVREF 3.
  587.      )
  588.    #Y(SETF-SLOTDEF-INITER #20Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 77 03 AB 5C 03 19 04) SETF
  589.       SVREF 4.
  590.      )
  591.    STRUCTURE SYSTEM::STRUCTURE-PRINT
  592.   )
  593. #Y(#:TOP-LEVEL-FORM-57 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-SLOTDEF
  594.    SYSTEM::REMOVE-OLD-DEFINITIONS
  595.    #Y(MAKE-SLOTDEF
  596.       #34Y(00 00 00 00 80 1B 0B 00 00 00 3C 0B 3A 0A 03 CB 09 0A 3C 09 3C 08 3C 07 B2 B2 B2 B2 B2
  597.            2C 05 0C 19 0C
  598.           )
  599.       :NAME :ALLOCATION :INITARGS :LOCATION :INITER :INITFORM :ACCESSORS :READERS :WRITERS :TYPE
  600.       :DOCUMENTATION :INSTANCE MAKE-SLOT-DEFINITION
  601.   )  )
  602. #Y(#:TOP-LEVEL-FORM-58 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ENSURE-CLASS
  603.    SYSTEM::REMOVE-OLD-DEFINITIONS
  604.    #Y(ENSURE-CLASS
  605.       #232Y(01 00 00 00 C1 00 05 00 00 00 3A 05 03 0E 05 FB 3C 04 3C 03 3C 02 3C 01 AE 5F 6C 06 8F
  606.             00 80 A2 AD 0E 05 22 80 8B AD A8 31 25 22 80 84 AC DC A9 DD 6E 2A 89 FF 80 7A AB DE A9
  607.             DF 6E 2A 87 0B 80 70 AA DE A9 E1 6E 2A 87 0D 80 66 DE A8 DF 6E 2A AC 8F 00 26 90 01 E3
  608.             37 01 6E 77 90 01 E3 37 01 6E 77 8F 01 0A 14 90 01 30 A8 A8 91 01 30 AA 16 02 91 01 7F
  609.             01 66 01 8E 00 5A 16 02 DE A8 E1 6E 2A AB 8F 00 1E 99 57 74 99 57 74 A8 90 01 30 A8 A8
  610.             91 01 30 AA 16 02 99 57 75 99 57 57 F7 66 01 8E 00 62 16 02 8F 02 06 AF E4 AB 2C 03 10
  611.             15 19 08 E6 E7 B1 5E 02 94 13 1A 22 94 15 1A 1E 94 17 1A 1A 8F 02 06 AF E4 AB 2C 03 10
  612.             AD 0E 05 21 66 AD 0E 14 21 65 AD 0E 16 21 64 94 18 14 AE EE B2 A3 73 03 B0 2F 1A 19 09
  613.            )
  614.       :METACLASS :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS :DOCUMENTATION
  615.       <STANDARD-CLASS> FIND-CLASS CLASS 3. STANDARD-CLASS 7. EQUAL-SLOTS 11. EQUAL-DEFAULT-INITARGS
  616.       :INITER TYPE SYSTEM::%SET-DOCUMENTATION "~S: Cannot redefine class ~S" DEFCLASS
  617.       MAKE-INSTANCE-STANDARD-CLASS <BUILT-IN-CLASS> MAKE-INSTANCE-BUILT-IN-CLASS <STRUCTURE-CLASS>
  618.       MAKE-INSTANCE-STRUCTURE-CLASS MAKE-INSTANCE :NAME #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  619.   )  )
  620. #Y(#:TOP-LEVEL-FORM-59 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EQUAL-SLOTS
  621.    SYSTEM::REMOVE-OLD-DEFINITIONS
  622.    #Y(EQUAL-SLOTS
  623.       #46Y(02 00 00 00 00 03 8F 02 05 1A 07 8E 02 04 99 54 1D 1A A9 31 01 1E 15 A8 31 01 1E 10 90
  624.            02 90 02 2F 00 1E 08 91 02 91 02 28 02 05 5F 19 03
  625.           )
  626.       EQUAL-SLOT
  627.   )  )
  628. #Y(#:TOP-LEVEL-FORM-60 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EQUAL-SLOT
  629.    SYSTEM::REMOVE-OLD-DEFINITIONS
  630.    #Y(EQUAL-SLOT
  631.       #59Y(02 00 00 00 00 03 8F 02 13 1A 15 16 01 9A 57 74 9A 57 74 30 FF 1E 22 1A 16 8E 02 04 99
  632.            54 1D 19 90 02 9A 56 55 1E 12 90 02 A7 24 00 5E 16 01 9A 57 75 9A 57 75 28 02 05 60 19
  633.            03
  634.           )
  635.       :INITER
  636.   )  )
  637. #Y(#:TOP-LEVEL-FORM-61 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EQUAL-DEFAULT-INITARGS
  638.    SYSTEM::REMOVE-OLD-DEFINITIONS
  639.    #Y(EQUAL-DEFAULT-INITARGS
  640.       #47Y(02 00 00 00 00 03 8F 02 05 1A 07 8E 02 04 99 54 1D 1B A9 31 01 1E 16 A8 31 01 1E 11 90
  641.            02 9A 56 55 1E 0A 9A 57 75 9A 57 75 28 02 05 5E 19 03
  642.   )  )    )
  643. #Y(#:TOP-LEVEL-FORM-62
  644.    #36Y(00 00 00 00 00 01 00 2A 01 00 0B 00 00 D5 2E 01 D5 A8 69 02 01 31 74 D8 2E 01 D8 A8 69 04
  645.         01 31 74 C3 19 02
  646.        )
  647.    DEF-UNBOUND SYSTEM::REMOVE-OLD-DEFINITIONS
  648.    #Y(DEF-UNBOUND #12Y(01 00 00 00 00 02 99 0C 00 01 19 02) NIL) MAKE-INSTANCE-STANDARD-CLASS
  649.    #Y(MAKE-INSTANCE-STANDARD-CLASS
  650.       #375Y(01 00 00 00 C0 1C 04 00 01 00 3C 04 3C 03 3C 02 3C 01 95 05 AB 8D 00 26 80 57 DD AC DE
  651.             AF 6A 04 0A AB 6D 9E E0 A9 E1 AA 31 2B 16 01 A7 AC 67 0D 77 01 6F 02 20 6C 0E E0 A9 E4
  652.             AA 31 2B 16 01 E0 A8 E4 6E 2A 6B 10 E0 A9 E6 AA 31 2B 16 01 E7 A8 E8 AD 31 2B A7 6B 14
  653.             E7 A9 EA AA 31 2B 16 01 37 05 03 16 F9 6D 63 EC ED E7 AB EA 6E 2A A7 1A 80 46 DB DC AD
  654.             95 05 AE 37 04 6E 58 5E 03 AD 81 07 15 1A 26 AF 9E 76 81 06 15 1A 1E 90 00 A7 03 18 5A
  655.             14 A8 03 17 5A 14 A7 23 19 62 A7 A1 21 64 A8 E0 A9 EF 6E 2A 37 01 30 64 14 A7 AB CC 5B
  656.             A9 B0 A9 30 65 16 04 7F 00 98 20 51 16 02 E0 AB EF AC 31 2B E7 AB F0 AB 31 2B A7 8B 85
  657.             80 4E A7 37 07 6D 19 ED E7 AD EA 6E 2A A7 1A 2F 90 00 35 00 1A 11 56 1B 77 98 57 1A 0A
  658.             A7 D1 5A 14 8E 00 72 07 00 01 F6 AC 9D 5B 81 03 16 01 1A 0C 90 00 A7 03 17 5A 14 A1 21
  659.             62 16 01 7F 00 98 20 6F 16 02 99 16 01 F6 E7 AC F1 AA 31 2B 16 01 16 03 E7 A8 F2 AC 31
  660.             2B 5F E0 A9 E4 6E 2A 1A 1A E7 A8 F2 6E 2A 2E 1E 1A 08 90 00 E7 A8 8A 2E 70 00 14 AA 7C
  661.             A2 02 16 01 7F 00 98 20 6C 16 01 A7 7C A3 00 60 37 05 03 1F F8 6E 4E E7 A9 F5 AA 31 2B
  662.             16 01 95 21 E7 A9 EA 6E 2A 6C 22 37 06 6E 4E E7 A9 61 23 AA 31 2B 16 01 15 19 06
  663.            )
  664.       NIL :NAME :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS STANDARD-CLASS-P
  665.       "~S ~S: superclass ~S should belong to class STANDARD-CLASS" DEFCLASS :CLASSNAME :METACLASS
  666.       MAKE-STANDARD-CLASS CLASS 3. <STANDARD-OBJECT> STD-COMPUTE-CPL 5. STD-COMPUTE-SUPERCLASSES 4.
  667.       STANDARD-CLASS 7. STD-COMPUTE-SLOTS 8. #.#'EQ 1. 0. :INSTANCE 6. 9. 10. 11. PLIST-TO-ALIST
  668.       #.#'CAR 12. SLOTDEF-INITARGS MAPCAP 13.
  669.   )  )
  670. #Y(#:TOP-LEVEL-FORM-63 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) STD-COMPUTE-CPL
  671.    SYSTEM::REMOVE-OLD-DEFINITIONS
  672.    #Y(STD-COMPUTE-CPL
  673.       #330Y(02 00 00 00 00 03 00 2A 02 95 00 AA 6C 01 37 06 6E 4E 5F AC 9D 76 5C 01 0B 02 00 5F A9
  674.             1A 80 74 DB DC D7 B0 DD 6E 2A 64 06 00 64 07 01 6F 02 20 98 56 74 77 01 90 00 A9 5F 1A
  675.             27 A9 91 01 37 06 6E 59 A8 30 94 16 02 1A 20 C9 16 02 1A 32 A7 80 02 16 02 1A 60 83 01
  676.             00 A9 91 01 37 03 88 B3 5B 7F 01 A8 89 92 6F 00 16 02 14 8F 00 5C A7 AA 37 03 89 B3 5A
  677.             A7 AA 37 03 6D B3 5F 30 AA 9A 16 02 16 01 F6 5E 03 90 00 A7 D7 A9 D8 31 2A 76 80 02 16
  678.             01 7F 00 98 20 6E 16 01 A7 30 A3 16 01 0B 02 01 06 02 00 1C 80 6A D9 64 03 00 6F 00 17
  679.             60 37 05 6E 4E AA 69 05 01 A8 37 05 7D 49 00 1C FF 60 90 00 A7 80 02 A7 64 05 01 37 03
  680.             6D BA 06 05 00 58 0B 04 00 A7 64 05 01 37 07 C4 F9 31 4B 0B 04 01 64 04 00 A7 1A 12 98
  681.             56 74 9B 22 0A 90 00 7F 00 A8 A8 30 A8 16 01 7F 00 98 20 6B 16 02 DF 64 05 00 37 05 31
  682.             4C 0B 04 00 16 02 06 02 00 1B FF 96 A7 7D 43 00 AB 1A 2A 90 00 A9 D7 A9 E0 6E 2A 8E 00
  683.             09 16 03 1A 19 7F 00 8F 00 77 90 00 A9 37 03 7C B3 01 1B 71 16 02 E1 AF A9 2C 03 0D 16
  684.             01 7F 00 98 20 53 16 01 15 19 05
  685.            )
  686.       CLASS-PRECEDENCE-LIST MAPCAP CLASS 3. #.#'FIRST
  687.       #Y(STD-COMPUTE-CPL-1
  688.          #66Y(01 00 00 00 00 02 65 00 01 5F 1A 13 02 16 02 3E 19 02 83 01 00 AA 91 01 37 03 88 B3
  689.               6F 7F 01 A8 89 92 6F 16 02 65 00 02 5F 1A 10 02 19 04 83 01 00 AA 91 01 37 03 88 B3
  690.               72 7F 01 A8 89 92 6F 00 19 04
  691.              )
  692.          NIL
  693.         )
  694.       "~S ~S: inconsistent precedence graph, cycle ~S" DEFCLASS 2. ?? #.#'NULL 5.
  695.       "(class-precedence-list ~S) and (class-precedence-list ~S) are inconsistent" WARN
  696.   )  )
  697. #Y(#:TOP-LEVEL-FORM-64 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  698.    STD-COMPUTE-SUPERCLASSES SYSTEM::REMOVE-OLD-DEFINITIONS
  699.    #Y(STD-COMPUTE-SUPERCLASSES
  700.       #34Y(01 00 00 00 00 02 37 05 C0 F9 6D 63 A9 1A 0B 90 00 A7 AA 60 30 65 16 01 7F 00 98 20 72
  701.            16 01 15 19 02
  702.           )
  703.       #.#'EQ
  704.   )  )
  705. #Y(#:TOP-LEVEL-FORM-65 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PLIST-TO-ALIST
  706.    SYSTEM::REMOVE-OLD-DEFINITIONS
  707.    #Y(PLIST-TO-ALIST
  708.       #31Y(01 00 00 00 00 02 5F 8F 02 10 90 02 9B 57 74 A9 7C B8 00 9A 57 57 F8 8E 02 70 A7 31 43
  709.            19 03
  710.   )  )    )
  711. #Y(#:TOP-LEVEL-FORM-66 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ALIST-TO-PLIST
  712.    SYSTEM::REMOVE-OLD-DEFINITIONS
  713.    #Y(ALIST-TO-PLIST
  714.       #36Y(01 00 00 00 00 02 5F A9 1A 10 90 00 90 00 91 01 77 02 AA 7C A2 02 16 01 7F 00 98 20 6D
  715.            16 01 A7 30 A3 19 03
  716.   )  )    )
  717. #Y(#:TOP-LEVEL-FORM-67 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) STD-COMPUTE-SLOTS
  718.    SYSTEM::REMOVE-OLD-DEFINITIONS
  719.    #Y(STD-COMPUTE-SLOTS
  720.       #303Y(01 00 00 00 00 02 5F D5 AA D6 6E 2A 1A 80 45 5F D7 A9 D8 6E 2A 1A 20 90 00 A7 A7 2E 04
  721.             F6 DA A8 37 03 30 BA 75 24 06 09 DA A8 37 03 6D BA AC 30 AA 80 02 16 01 7F 00 98 20 5D
  722.             16 01 A7 30 A3 16 01 1A 08 90 00 D7 A8 8A 2E 45 00 14 AA 7C A2 02 16 01 7F 00 98 20 6C
  723.             16 01 A7 7C A3 00 37 05 C7 F9 6D 63 A8 5F 1A 26 83 01 00 1A 06 DE DF E0 2C 03 0C 98 56
  724.             74 24 08 74 91 00 99 56 75 A8 A8 AD 5F 30 64 76 A8 AD A9 30 65 16 03 7F 01 A8 89 92 56
  725.             16 02 00 2A 01 00 0B 00 00 A7 69 0D 01 A9 30 67 06 00 00 16 02 F6 5F A8 1A 80 78 90 00
  726.             90 00 91 01 95 0E DD AA DA 90 04 37 03 88 BA 01 CF 14 5F AC 1A 18 E5 99 76 5C 01 1A 23
  727.             90 00 E5 A8 37 03 30 BA 75 AA 7C A1 02 16 01 7F 00 98 20 6C 16 01 A7 7C A3 00 60 37 05
  728.             6E 4E 8E 00 57 00 F6 AC 5F 1A 18 E6 A8 37 03 6D BA 5C 01 16 02 1A 13 83 01 00 E6 A8 37
  729.             03 88 BA 6A 7F 01 A8 89 92 70 00 16 02 14 32 02 20 76 2E 12 36 02 16 01 F6 80 02 16 01
  730.             7F 00 98 20 FF 84 16 01 A7 30 A3 19 04
  731.            )
  732.       CLASS 5. STANDARD-CLASS 7. PLIST-TO-ALIST :ALLOCATION :CLASS #.#'EQ :NAME "Retry" "~A"
  733.       "(EQ (CAAR SLOT) ':NAME) must evaluate to a non-NIL value." CERROR
  734.       #Y(STD-COMPUTE-SLOTS-1 #20Y(02 00 00 00 00 03 A9 A9 31 43 76 07 00 01 58 0C 00 01 19 03) NIL)
  735.       MAKE-SLOTDEF (:ALLOCATION . :INSTANCE) :INITARGS :INITER ALIST-TO-PLIST
  736.   )  )
  737. #Y(#:TOP-LEVEL-FORM-68 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  738.    MAKE-INSTANCE-BUILT-IN-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
  739.    #Y(MAKE-INSTANCE-BUILT-IN-CLASS
  740.       #80Y(01 00 00 00 C0 1C 02 00 00 00 3C 02 3C 01 95 02 A9 8D 00 26 30 D9 AA DA AD 6A 04 06 A9
  741.            6D 9E DC A9 DD AA 31 2B 16 01 A7 AA 6C 09 DC A9 DF AA 31 2B 16 01 DC A8 DF 6E 2A 6B 0B
  742.            DC A9 E1 AA 31 2B 16 01 15 19 04 D8 AA 95 02 AB 37 04 6E 58 5E 02
  743.           )
  744.       :NAME :DIRECT-SUPERCLASSES BUILT-IN-CLASS-P
  745.       "~S: superclass ~S should belong to class BUILT-IN-CLASS" :CLASSNAME :METACLASS
  746.       MAKE-BUILT-IN-CLASS CLASS 3. STD-COMPUTE-CPL 5. STD-COMPUTE-SUPERCLASSES 4.
  747.   )  )
  748. #Y(#:TOP-LEVEL-FORM-69 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  749.    MAKE-INSTANCE-STRUCTURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
  750.    #Y(MAKE-INSTANCE-STRUCTURE-CLASS
  751.       #109Y(01 00 00 00 C0 1C 03 00 00 00 3C 03 3C 02 3C 01 9A 57 1B 80 4E 95 04 AA 8D 00 26 80 4A
  752.             DB AB DC AE 6A 04 08 AA 6D 9E DE A9 DF AA 31 2B 16 01 A7 AB 67 0B 77 01 6F 02 20 6C 0C
  753.             DE A9 E2 AA 31 2B 16 01 DE A8 E2 6E 2A 6B 0E DE A9 E4 AA 31 2B 16 01 A9 37 04 D0 F9 6D
  754.             63 DE A9 E6 AA 31 2B 16 01 15 19 05 D8 AB 5E 01 DA AB 90 04 5E 02
  755.            )
  756.       :NAME :DIRECT-SUPERCLASSES :SLOTS
  757.       "~S: metaclass STRUCTURE-CLASS forbids more than one direct superclass" STRUCTURE-CLASS-P
  758.       "~S: superclass ~S should belong to class STRUCTURE-CLASS" :CLASSNAME :METACLASS
  759.       MAKE-STRUCTURE-CLASS CLASS 3. <T> STD-COMPUTE-CPL 5. STD-COMPUTE-SUPERCLASSES 4. #.#'EQ 6.
  760.   )  )
  761. #Y(#:TOP-LEVEL-FORM-70 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEFINE-STRUCTURE-CLASS
  762.    SYSTEM::REMOVE-OLD-DEFINITIONS
  763.    #Y(DEFINE-STRUCTURE-CLASS
  764.       #93Y(01 00 00 00 00 02 A8 D5 37 01 6E 76 8E 00 0C 00 19 03 9C 57 74 6B 05 5C 01 1A 0E 14 C1
  765.            5A 14 67 02 D8 AC D9 9C 57 1B 6A 00 14 DB 5F AF C7 5A 14 1A 1A 90 00 99 57 56 76 5C 01
  766.            1A 07 90 00 98 56 1B 70 00 14 AA 7C A2 02 16 01 7F 00 98 20 6D 16 01 A7 7C A3 00 6A 07
  767.            08 AB 2F 09 19 04
  768.           )
  769.       SYSTEM::DEFSTRUCT-DESCRIPTION 0. <STRUCTURE-CLASS> :NAME :DIRECT-SUPERCLASSES FIND-CLASS
  770.       :SLOTS 3. MAKE-INSTANCE-STRUCTURE-CLASS #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  771.   )  )
  772. #Y(#:TOP-LEVEL-FORM-71-1 #19Y(00 00 00 00 00 01 5F D5 60 D6 5F 2C 05 02 0F 03 3D 19 01) :NAME
  773.    :DIRECT-SUPERCLASSES MAKE-INSTANCE-BUILT-IN-CLASS <T>
  774.   )
  775. #Y(#:TOP-LEVEL-FORM-71-2 #13Y(00 00 00 00 00 01 2D 00 0F 01 3D 19 01) MAKE-STRUCTURE-CLASS
  776.    <STRUCTURE-CLASS>
  777.   )
  778. #Y(#:TOP-LEVEL-FORM-71-3
  779.    #38Y(00 00 00 00 00 01 D5 6B 01 D7 2E 01 0F 03 14 D5 A9 D9 AA 31 2B 16 01 67 03 67 03 D5 A9 D9
  780.         AA 31 2B 16 03 3D 19 01
  781.        )
  782.    CLASS DEFINE-STRUCTURE-CLASS STRUCTURE-CLASS <STRUCTURE-CLASS> 1.
  783.   )
  784. #Y(#:TOP-LEVEL-FORM-71-4 #15Y(00 00 00 00 00 01 5F 69 00 01 30 E2 3D 19 01)
  785.    #Y(#:TOP-LEVEL-FORM-71-4-1 #11Y(01 00 00 00 00 02 A8 C1 33 19 02) NIL
  786.       #Y(DEFINE-STRUCTURE-CLASS-WITH-INCLUDES
  787.          #46Y(01 00 00 00 00 02 A8 D5 37 01 8B 76 05 A8 5F 87 01 03 00 19 02 A8 D5 37 01 6E 76 C2
  788.               5A 14 98 57 1C 05 98 57 74 27 5F 16 01 A8 2E 03 19 02
  789.              )
  790.          SYSTEM::DEFSTRUCT-DESCRIPTION FIND-CLASS 0. DEFINE-STRUCTURE-CLASS
  791.   )  )  )
  792. #Y(#:TOP-LEVEL-FORM-71-5 #14Y(00 00 00 00 00 01 D5 2E 01 0F 02 3D 19 01) STANDARD-CLASS FIND-CLASS
  793.    <STANDARD-CLASS>
  794.   )
  795. #Y(#:TOP-LEVEL-FORM-71-6 #14Y(00 00 00 00 00 01 D5 2E 01 0F 02 3D 19 01) BUILT-IN-CLASS FIND-CLASS
  796.    <BUILT-IN-CLASS>
  797.   )
  798. #Y(#:TOP-LEVEL-FORM-71-7 #21Y(00 00 00 00 00 01 67 00 67 01 D7 A9 D8 AA 31 2B 16 02 3D 19 01) <T>
  799.    <BUILT-IN-CLASS> CLASS 1.
  800.   )
  801. #Y(#:TOP-LEVEL-FORM-71-8 #14Y(00 00 00 00 00 01 67 00 60 2F 01 3D 19 01) <T>
  802.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  803.   )
  804. #Y(#:TOP-LEVEL-FORM-71-9
  805.    #37Y(00 00 00 00 00 01 D5 D6 D7 67 03 D9 67 05 77 01 DB 5F DC 5F DD 67 09 DF E0 E1 5F E2 5F 2C
  806.         12 0E 0F 0F 3D 19 01
  807.        )
  808.    :CLASSNAME STANDARD-OBJECT :METACLASS <STANDARD-CLASS> :DIRECT-SUPERCLASSES <T> :DIRECT-SLOTS
  809.    :SLOTS :SLOT-LOCATION-TABLE EMPTY-HT :INSTANCE-SLOT-COUNT 1. :DIRECT-DEFAULT-INITARGS
  810.    :DEFAULT-INITARGS MAKE-STANDARD-CLASS <STANDARD-OBJECT>
  811.   )
  812. #Y(#:TOP-LEVEL-FORM-71-10
  813.    #38Y(00 00 00 00 00 01 67 00 67 00 67 00 67 01 77 02 D7 A9 D8 AA 31 2B 16 01 F6 6B 04 D7 A9 DA
  814.         AA 31 2B 16 02 3D 19 01
  815.        )
  816.    <STANDARD-OBJECT> <T> CLASS 5. STD-COMPUTE-SUPERCLASSES 4.
  817.   )
  818. #Y(#:TOP-LEVEL-FORM-71-11 #14Y(00 00 00 00 00 01 67 00 D6 2F 02 3D 19 01) <STANDARD-OBJECT>
  819.    STANDARD-OBJECT #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  820.   )
  821. #Y(#:TOP-LEVEL-FORM-71-12 #18Y(00 00 00 00 00 01 67 00 D6 6E 36 D7 6E 27 2E 03 19 01)
  822.    <STANDARD-OBJECT> 2. 1. DEF-UNBOUND
  823.   )
  824. #Y(#:TOP-LEVEL-FORM-72 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SUBCLASSP
  825.    SYSTEM::REMOVE-OLD-DEFINITIONS
  826.    #Y(SUBCLASSP #18Y(02 00 00 00 00 03 A8 D5 AB D6 6E 2A 37 01 30 64 19 03) CLASS 4.)
  827.   )
  828. #Y(#:TOP-LEVEL-FORM-73-1
  829.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  830.    <BUILT-IN-CLASS> :NAME CHARACTER :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS
  831.    <CHARACTER> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  832.   )
  833. #Y(#:TOP-LEVEL-FORM-73-2
  834.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  835.    <BUILT-IN-CLASS> :NAME FUNCTION :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <FUNCTION>
  836.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  837.   )
  838. #Y(#:TOP-LEVEL-FORM-73-3
  839.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  840.    <BUILT-IN-CLASS> :NAME STANDARD-GENERIC-FUNCTION :DIRECT-SUPERCLASSES <FUNCTION>
  841.    MAKE-INSTANCE-BUILT-IN-CLASS <STANDARD-GENERIC-FUNCTION> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  842.   )
  843. #Y(#:TOP-LEVEL-FORM-73-4
  844.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  845.    <BUILT-IN-CLASS> :NAME HASH-TABLE :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS
  846.    <HASH-TABLE> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  847.   )
  848. #Y(#:TOP-LEVEL-FORM-73-5
  849.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  850.    <BUILT-IN-CLASS> :NAME PACKAGE :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <PACKAGE>
  851.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  852.   )
  853. #Y(#:TOP-LEVEL-FORM-73-6
  854.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  855.    <BUILT-IN-CLASS> :NAME PATHNAME :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <PATHNAME>
  856.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  857.   )
  858. #Y(#:TOP-LEVEL-FORM-73-7
  859.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  860.    <BUILT-IN-CLASS> :NAME RANDOM-STATE :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS
  861.    <RANDOM-STATE> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  862.   )
  863. #Y(#:TOP-LEVEL-FORM-73-8
  864.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  865.    <BUILT-IN-CLASS> :NAME READTABLE :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS
  866.    <READTABLE> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  867.   )
  868. #Y(#:TOP-LEVEL-FORM-73-9
  869.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  870.    <BUILT-IN-CLASS> :NAME STREAM :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <STREAM>
  871.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  872.   )
  873. #Y(#:TOP-LEVEL-FORM-73-10
  874.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  875.    <BUILT-IN-CLASS> :NAME SYMBOL :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <SYMBOL>
  876.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  877.   )
  878. #Y(#:TOP-LEVEL-FORM-73-11
  879.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  880.    <BUILT-IN-CLASS> :NAME SEQUENCE :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <SEQUENCE>
  881.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  882.   )
  883. #Y(#:TOP-LEVEL-FORM-73-12
  884.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  885.    <BUILT-IN-CLASS> :NAME LIST :DIRECT-SUPERCLASSES <SEQUENCE> MAKE-INSTANCE-BUILT-IN-CLASS <LIST>
  886.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  887.   )
  888. #Y(#:TOP-LEVEL-FORM-73-13
  889.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  890.    <BUILT-IN-CLASS> :NAME CONS :DIRECT-SUPERCLASSES <LIST> MAKE-INSTANCE-BUILT-IN-CLASS <CONS>
  891.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  892.   )
  893. #Y(#:TOP-LEVEL-FORM-73-14
  894.    #29Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 67 05 77 02 2C 05 06 0F 07 14 D7 2F 08 3D 19 01)
  895.    <BUILT-IN-CLASS> :NAME NULL :DIRECT-SUPERCLASSES <SYMBOL> <LIST> MAKE-INSTANCE-BUILT-IN-CLASS
  896.    <NULL> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  897.   )
  898. #Y(#:TOP-LEVEL-FORM-73-15
  899.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  900.    <BUILT-IN-CLASS> :NAME ARRAY :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <ARRAY>
  901.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  902.   )
  903. #Y(#:TOP-LEVEL-FORM-73-16
  904.    #29Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 67 05 77 02 2C 05 06 0F 07 14 D7 2F 08 3D 19 01)
  905.    <BUILT-IN-CLASS> :NAME VECTOR :DIRECT-SUPERCLASSES <ARRAY> <SEQUENCE>
  906.    MAKE-INSTANCE-BUILT-IN-CLASS <VECTOR> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  907.   )
  908. #Y(#:TOP-LEVEL-FORM-73-17
  909.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  910.    <BUILT-IN-CLASS> :NAME BIT-VECTOR :DIRECT-SUPERCLASSES <VECTOR> MAKE-INSTANCE-BUILT-IN-CLASS
  911.    <BIT-VECTOR> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  912.   )
  913. #Y(#:TOP-LEVEL-FORM-73-18
  914.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  915.    <BUILT-IN-CLASS> :NAME STRING :DIRECT-SUPERCLASSES <VECTOR> MAKE-INSTANCE-BUILT-IN-CLASS
  916.    <STRING> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  917.   )
  918. #Y(#:TOP-LEVEL-FORM-73-19
  919.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  920.    <BUILT-IN-CLASS> :NAME NUMBER :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <NUMBER>
  921.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  922.   )
  923. #Y(#:TOP-LEVEL-FORM-73-20
  924.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  925.    <BUILT-IN-CLASS> :NAME COMPLEX :DIRECT-SUPERCLASSES <NUMBER> MAKE-INSTANCE-BUILT-IN-CLASS
  926.    <COMPLEX> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  927.   )
  928. #Y(#:TOP-LEVEL-FORM-73-21
  929.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  930.    <BUILT-IN-CLASS> :NAME REAL :DIRECT-SUPERCLASSES <NUMBER> MAKE-INSTANCE-BUILT-IN-CLASS <REAL>
  931.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  932.   )
  933. #Y(#:TOP-LEVEL-FORM-73-22
  934.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  935.    <BUILT-IN-CLASS> :NAME FLOAT :DIRECT-SUPERCLASSES <REAL> MAKE-INSTANCE-BUILT-IN-CLASS <FLOAT>
  936.    #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  937.   )
  938. #Y(#:TOP-LEVEL-FORM-73-23
  939.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  940.    <BUILT-IN-CLASS> :NAME RATIONAL :DIRECT-SUPERCLASSES <REAL> MAKE-INSTANCE-BUILT-IN-CLASS
  941.    <RATIONAL> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  942.   )
  943. #Y(#:TOP-LEVEL-FORM-73-24
  944.    #27Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 3D 19 01)
  945.    <BUILT-IN-CLASS> :NAME RATIO :DIRECT-SUPERCLASSES <RATIONAL> MAKE-INSTANCE-BUILT-IN-CLASS
  946.    <RATIO> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  947.   )
  948. #Y(#:TOP-LEVEL-FORM-73-25
  949.    #26Y(00 00 00 00 00 01 67 00 D6 D7 D8 67 04 77 01 2C 05 05 0F 06 14 D7 2F 07 19 01)
  950.    <BUILT-IN-CLASS> :NAME INTEGER :DIRECT-SUPERCLASSES <RATIONAL> MAKE-INSTANCE-BUILT-IN-CLASS
  951.    <INTEGER> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
  952.   )
  953. #Y(#:TOP-LEVEL-FORM-74
  954.    #64Y(00 00 00 00 00 01 D5 D6 37 01 6E 76 C2 5A 14 67 03 67 04 67 05 67 06 67 07 67 08 67 09 67
  955.         0A 67 0B 67 0C 67 0D 67 0E 67 0F 67 10 67 11 67 12 67 13 67 14 67 15 67 16 67 17 6F 15 00
  956.         2F 18 19 01
  957.        )
  958.    CLASS SYSTEM::DEFSTRUCT-DESCRIPTION 0. <ARRAY> <BIT-VECTOR> <CHARACTER> <COMPLEX> <CONS> <FLOAT>
  959.    <FUNCTION> <HASH-TABLE> <INTEGER> <NULL> <PACKAGE> <PATHNAME> <RANDOM-STATE> <RATIO> <READTABLE>
  960.    <STANDARD-GENERIC-FUNCTION> <STREAM> <STRING> <SYMBOL> <T> <VECTOR> %DEFCLOS
  961.   )
  962. #Y(#:TOP-LEVEL-FORM-75 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BC-P
  963.    SYSTEM::REMOVE-OLD-DEFINITIONS
  964.    #Y(BC-P #19Y(01 00 00 00 00 02 A8 2E 00 1D 06 A8 0E 01 55 19 02 19 02) BUILT-IN-CLASS-P
  965.       <STANDARD-OBJECT>
  966.   )  )
  967. #Y(#:TOP-LEVEL-FORM-76 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BC-AND
  968.    SYSTEM::REMOVE-OLD-DEFINITIONS
  969.    #Y(BC-AND
  970.       #81Y(02 00 00 00 00 03 A9 A9 86 00 38 A8 AA 86 00 36 67 01 AA 87 00 06 67 02 A9 86 00 2D 67
  971.            01 A9 87 00 06 67 02 AA 86 00 21 67 04 AA 87 00 06 67 05 A9 86 00 19 67 04 A9 87 00 06
  972.            67 05 AA 86 00 0D 00 19 03 9A 19 03 99 19 03 0E 03 19 03 0E 06 19 03
  973.           )
  974.       SUBCLASSP <SEQUENCE> <ARRAY> <VECTOR> <LIST> <SYMBOL> <NULL>
  975.   )  )
  976. #Y(#:TOP-LEVEL-FORM-77 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BC-AND-NOT
  977.    SYSTEM::REMOVE-OLD-DEFINITIONS
  978.    #Y(BC-AND-NOT
  979.       #62Y(02 00 00 00 00 03 A9 A9 86 00 24 A9 0E 01 22 06 67 02 A9 86 00 1C A9 0E 01 22 06 67 03
  980.            A9 86 00 15 A9 0E 03 22 06 67 04 A9 86 00 0E 9A 19 03 00 19 03 0E 03 19 03 0E 02 19 03
  981.            0E 05 19 03
  982.           )
  983.       SUBCLASSP <SEQUENCE> <VECTOR> <LIST> <NULL> <CONS>
  984.   )  )
  985. #Y(#:TOP-LEVEL-FORM-78
  986.    #354Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 D5 DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
  987.          DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 2E 01 E3 DF E4 31 7A E3 E5 31 74 E6 30 5B
  988.          E7 30 5B E8 2E 01 E8 DF E9 31 7A E8 EA 31 74 EB 30 5B EC 30 5B ED 2E 01 ED DF EE 31 7A ED
  989.          EF 31 74 F0 30 5B F1 30 5B F2 2E 01 F2 DF F3 31 7A F2 F4 31 74 F5 30 5B 61 21 30 5B 61 22
  990.          2E 01 61 22 DF 61 23 31 7A 61 22 61 24 31 74 61 25 30 5B 61 26 30 5B 61 27 2E 01 61 27 DF
  991.          61 28 31 7A 61 27 61 29 31 74 61 2A 30 5B 61 2B 30 5B 61 2C 2E 01 61 2C DF 61 2D 31 7A 61
  992.          2C 61 2E 31 74 61 2F 30 5B 61 30 30 5B 61 31 2E 01 61 31 DF 61 32 31 7A 61 31 61 33 31 74
  993.          E8 61 34 61 35 03 36 76 31 7A E8 61 37 5F 2C 03 38 ED 61 34 61 35 03 39 76 31 7A ED 61 37
  994.          5F 2C 03 38 F2 61 34 61 35 03 3A 76 31 7A F2 61 37 5F 2C 03 38 61 22 61 34 61 35 03 3B 76
  995.          31 7A 61 22 61 37 5F 2C 03 38 61 27 61 34 61 35 03 3C 76 31 7A 61 27 61 37 5F 2C 03 38 61
  996.          2C 61 34 61 35 03 3D 76 31 7A 61 2C 61 37 5F 2C 03 38 61 31 61 34 61 35 03 3E 76 31 7A 61
  997.          31 61 37 5F 2C 03 38 D8 61 3F 5F 2C 03 38 D8 61 40 61 41 31 7A C3 19 01
  998.         )
  999.    MAKE-STANDARD-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS
  1000.    #Y(MAKE-STANDARD-METHOD
  1001.       #73Y(00 00 00 00 80 1B 07 00 00 00 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 DC DD 6E 2C DE
  1002.            A8 DF B2 31 2B DE A8 E0 B1 31 2B DE A8 E1 B0 31 2B DE A8 E2 AF 31 2B DE A8 E3 AE 31 2B
  1003.            DE A8 E4 AD 31 2B DE A8 E5 AC 31 2B 15 19 08
  1004.           )
  1005.       :FUNCTION :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE :GF
  1006.       :INITFUNCTION #1=(STANDARD-METHOD) 8. STANDARD-METHOD 1. 2. 3. 4. 5. 6. 7.
  1007.      )
  1008.    STANDARD-METHOD SYSTEM::DEFSTRUCT-DESCRIPTION #1#
  1009.    ((FUNCTION 1. NIL T NIL) (WANTS-NEXT-METHOD-P 2. NIL T NIL)
  1010.     (PARAMETER-SPECIALIZERS 3. NIL T NIL) (QUALIFIERS 4. NIL T NIL) (SIGNATURE 5. NIL T NIL)
  1011.     (GF 6. NIL T NIL) (INITFUNCTION 7. NIL T NIL)
  1012.    )
  1013.    DEFINE-STRUCTURE-CLASS (INLINE STANDARD-METHOD-P) STANDARD-METHOD-P SYSTEM::INLINE-EXPANSION
  1014.    ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN STANDARD-METHOD-P))
  1015.     (BLOCK STANDARD-METHOD-P (SYSTEM::%STRUCTURE-TYPE-P 'STANDARD-METHOD SYSTEM::OBJECT))
  1016.    )
  1017.    #Y(STANDARD-METHOD-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) STANDARD-METHOD)
  1018.    (INLINE COPY-STANDARD-METHOD) COPY-STANDARD-METHOD
  1019.    ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-STANDARD-METHOD))
  1020.     (BLOCK COPY-STANDARD-METHOD (SYSTEM::%COPY-STRUCTURE STRUCTURE))
  1021.    )
  1022.    #Y(COPY-STANDARD-METHOD #11Y(01 00 00 00 00 02 A8 31 2D 19 02))
  1023.    (FUNCTION STD-METHOD-FUNCTION (STANDARD-METHOD) T) (INLINE STD-METHOD-FUNCTION)
  1024.    STD-METHOD-FUNCTION
  1025.    (#2=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-FUNCTION))
  1026.     (BLOCK STD-METHOD-FUNCTION (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 1.)))
  1027.    )
  1028.    #Y(STD-METHOD-FUNCTION #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-METHOD 1.)
  1029.    (FUNCTION STD-METHOD-WANTS-NEXT-METHOD-P (STANDARD-METHOD) T)
  1030.    (INLINE STD-METHOD-WANTS-NEXT-METHOD-P) STD-METHOD-WANTS-NEXT-METHOD-P
  1031.    (#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-WANTS-NEXT-METHOD-P))
  1032.     (BLOCK STD-METHOD-WANTS-NEXT-METHOD-P
  1033.      (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 2.))
  1034.    ))
  1035.    #Y(STD-METHOD-WANTS-NEXT-METHOD-P #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-METHOD
  1036.       2.
  1037.      )
  1038.    (FUNCTION STD-METHOD-PARAMETER-SPECIALIZERS (STANDARD-METHOD) T)
  1039.    (INLINE STD-METHOD-PARAMETER-SPECIALIZERS) STD-METHOD-PARAMETER-SPECIALIZERS
  1040.    (#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-PARAMETER-SPECIALIZERS))
  1041.     (BLOCK STD-METHOD-PARAMETER-SPECIALIZERS
  1042.      (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 3.))
  1043.    ))
  1044.    #Y(STD-METHOD-PARAMETER-SPECIALIZERS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02)
  1045.       STANDARD-METHOD 3.
  1046.      )
  1047.    (FUNCTION STD-METHOD-QUALIFIERS (STANDARD-METHOD) T) (INLINE STD-METHOD-QUALIFIERS)
  1048.    STD-METHOD-QUALIFIERS
  1049.    (#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-QUALIFIERS))
  1050.     (BLOCK STD-METHOD-QUALIFIERS
  1051.      (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 4.))
  1052.    ))
  1053.    #Y(STD-METHOD-QUALIFIERS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-METHOD 4.)
  1054.    (FUNCTION STD-METHOD-SIGNATURE (STANDARD-METHOD) T) (INLINE STD-METHOD-SIGNATURE)
  1055.    STD-METHOD-SIGNATURE
  1056.    (#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-SIGNATURE))
  1057.     (BLOCK STD-METHOD-SIGNATURE (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 5.))
  1058.    ))
  1059.    #Y(STD-METHOD-SIGNATURE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-METHOD 5.)
  1060.    (FUNCTION STD-METHOD-GF (STANDARD-METHOD) T) (INLINE STD-METHOD-GF) STD-METHOD-GF
  1061.    (#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-GF))
  1062.     (BLOCK STD-METHOD-GF (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 6.)))
  1063.    )
  1064.    #Y(STD-METHOD-GF #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-METHOD 6.)
  1065.    (FUNCTION STD-METHOD-INITFUNCTION (STANDARD-METHOD) T) (INLINE STD-METHOD-INITFUNCTION)
  1066.    STD-METHOD-INITFUNCTION
  1067.    (#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-INITFUNCTION))
  1068.     (BLOCK STD-METHOD-INITFUNCTION
  1069.      (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 7.))
  1070.    ))
  1071.    #Y(STD-METHOD-INITFUNCTION #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-METHOD 7.)
  1072.    SYSTEM::SETF-EXPANDER -1.
  1073.    #Y(SETF-STD-METHOD-FUNCTION #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  1074.       SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 1.
  1075.      )
  1076.    SETF SYSTEM::%SET-DOCUMENTATION
  1077.    #Y(SETF-STD-METHOD-WANTS-NEXT-METHOD-P
  1078.       #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) SYSTEM::%STRUCTURE-STORE
  1079.       'STANDARD-METHOD 2.
  1080.      )
  1081.    #Y(SETF-STD-METHOD-PARAMETER-SPECIALIZERS
  1082.       #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) SYSTEM::%STRUCTURE-STORE
  1083.       'STANDARD-METHOD 3.
  1084.      )
  1085.    #Y(SETF-STD-METHOD-QUALIFIERS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  1086.       SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 4.
  1087.      )
  1088.    #Y(SETF-STD-METHOD-SIGNATURE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  1089.       SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 5.
  1090.      )
  1091.    #Y(SETF-STD-METHOD-GF #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  1092.       SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 6.
  1093.      )
  1094.    #Y(SETF-STD-METHOD-INITFUNCTION #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  1095.       SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 7.
  1096.      )
  1097.    STRUCTURE SYSTEM::STRUCTURE-PRINT
  1098.    #Y(STANDARD-METHOD-PRINT-FUNCTION #14Y(03 00 00 00 00 04 AA AA AA 2C 03 00 19 04)
  1099.       PRINT-STD-METHOD
  1100.   )  )
  1101. #Y(#:TOP-LEVEL-FORM-79 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PRINT-STD-METHOD
  1102.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1103.    #Y(PRINT-STD-METHOD
  1104.       #34Y(03 00 00 00 00 04 00 2A 02 7B 04 00 00 7B 03 00 01 A7 69 00 01 64 01 00 64 02 01 D6 60
  1105.            2C 05 02 19 05
  1106.           )
  1107.       #Y(PRINT-STD-METHOD-1
  1108.          #61Y(00 00 00 00 00 01 65 00 01 D6 A8 D7 7D 2A 00 5F 1A 13 83 01 00 14 37 0B 65 00 02 30
  1109.               80 D8 65 00 02 30 88 7F 01 A8 89 92 69 16 02 65 00 01 D6 A8 D9 7D 2A 00 37 0B 65 00
  1110.               02 30 80 19 01
  1111.              )
  1112.          NIL STANDARD-METHOD 4. #\Space 3.
  1113.         )
  1114.       :TYPE SYSTEM::WRITE-UNREADABLE
  1115.   )  )
  1116. #Y(#:TOP-LEVEL-FORM-80 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) N-GENSYMS
  1117.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1118.    #Y(N-GENSYMS #25Y(01 00 00 00 00 02 5F A9 1A 08 37 01 6E 82 80 01 82 00 A7 24 00 74 99 19 04) 0.
  1119.   )  )
  1120. #Y(#:TOP-LEVEL-FORM-81 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) LAMBDA-LIST-KEYWORD-P
  1121.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1122.    #Y(LAMBDA-LIST-KEYWORD-P #16Y(01 00 00 00 00 02 99 25 00 03 02 19 02 00 19 02)
  1123.       #S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.) (&AUX . 1.)
  1124.          (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.) (&OPTIONAL . 1.)
  1125.   )  )  )
  1126. #Y(#:TOP-LEVEL-FORM-82 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1127.    ANALYZE-METHOD-DESCRIPTION SYSTEM::REMOVE-OLD-DEFINITIONS
  1128.    #Y(ANALYZE-METHOD-DESCRIPTION
  1129.       #803Y(04 00 00 00 00 05 5F 1A 11 D5 AD AD 5E 02 D9 A8 6E 43 5E 01 90 03 7F 04 80 00 9B 1F 6C
  1130.             90 03 8B 08 72 8F 00 0F A7 D6 88 FF 0A A7 D7 88 FF 05 A7 D8 89 FF 5A 90 03 91 04 01 03
  1131.             1A 36 A7 80 03 02 1A 1B DC DD 9A 57 74 5C 03 1A 22 90 04 7F 05 98 1F 6A 90 00 80 03 90
  1132.             00 80 02 98 57 56 14 98 1F 05 90 00 23 06 5C DE DF A9 77 02 5C 02 14 80 02 16 02 9C 1F
  1133.             05 90 04 85 05 51 A9 6E 41 AA AD 6D A2 E0 A8 E1 37 02 30 B3 75 95 05 A8 37 04 8A 5A 03
  1134.             A7 31 41 F6 E2 A9 E1 37 02 30 B3 54 54 14 8E 00 09 E3 AA E1 37 02 30 B3 54 54 14 5F E2
  1135.             AC E1 37 02 30 B3 75 A7 E4 95 05 AA 37 04 6E 5A 7D 3F 00 1A 81 51 98 56 1A 81 45 EC 9B
  1136.             76 5C 01 1A 81 AF 9B 1A 81 BA 37 01 31 82 1A 80 7A E3 AB 5C 02 1A 80 82 DC F4 DF B1 77
  1137.             02 DC F5 DF B4 77 02 5F B4 1A 0C 90 00 DF A8 77 02 80 02 16 01 7F 00 98 20 71 16 01 A7
  1138.             7C A3 00 DF B4 77 02 77 01 32 02 20 78 03 DC 61 21 61 22 DF BE 77 02 5F B6 1A 0C 90 00
  1139.             DF A8 77 02 80 02 16 01 7F 00 98 20 71 16 01 A7 7C A3 00 DF B6 77 02 77 01 32 02 20 5D
  1140.             04 1A 80 8D 37 01 6E 82 B6 6B 1B 8E 0C FF 87 B5 E4 8C 01 2E FF 80 00 14 F1 AC AC 32 02
  1141.             20 76 AA AA 8E 03 FF 78 00 14 32 02 20 76 F2 F3 5F 8E 05 FF 72 DC 61 23 DF B1 77 02 DC
  1142.             61 24 DF B4 77 02 5F B4 1A 0C 90 00 DF A8 77 02 80 02 16 01 7F 00 98 20 71 16 01 A7 30
  1143.             A3 16 01 78 03 DC 61 25 DF BD 77 02 5F B5 1A 1E 61 27 61 28 AC 77 02 AE AE 77 01 32 02
  1144.             20 5D 02 1A 2E 90 00 DF A8 77 02 80 02 16 01 7F 00 98 20 71 16 01 A7 30 A3 16 01 5D 03
  1145.             14 77 05 77 03 61 26 5F DF B0 77 02 77 03 77 02 8E 04 43 AA 9E 58 14 77 03 5C 02 16 04
  1146.             1A 80 E7 03 30 1A 80 F4 03 32 1A 80 F7 90 00 A7 98 1F 03 83 00 00 98 20 FE BD A7 6E 7E
  1147.             67 10 30 D3 F6 80 02 16 01 7F 00 98 20 62 16 01 A7 7C A3 00 8F 02 09 E6 AC E1 37 02 30
  1148.             B3 54 54 14 8F 03 25 8E 00 22 E7 E2 AE 37 06 CC F7 6E 59 AA 6E 41 6F 03 33 AD E4 A9 6E
  1149.             3F E6 AF AA 37 01 31 3F 76 7E 02 20 06 16 01 37 01 6E 82 A5 54 1B 04 B4 E8 30 FF 14 5F
  1150.             B4 60 BA 30 60 41 03 E9 A9 EA 37 02 7C B3 03 8F 0E 07 EB B6 31 43 76 80 01 B2 8E 02 FE
  1151.             4A 00 76 BF 23 18 FE 4B EE BF 6B 1A 9D 78 02 5C 01 14 8E 06 FE AF A8 F2 F3 5F 61 29 61
  1152.             2A DF 62 20 77 02 DF 62 20 77 02 61 2B DF 90 1E 77 02 77 06 77 03 61 26 5F 61 29 61 2C
  1153.             DF 62 21 77 02 DF 62 21 77 02 61 2D DF 90 1F 77 02 77 06 77 03 77 02 9B 78 02 77 01 32
  1154.             02 20 16 04 F6 61 2E 61 2F 61 28 F1 AE 77 01 8E 06 FF 08 00 14 61 31 8E 09 FF 05 00 14
  1155.             A0 78 02 77 01 32 02 20 78 02 77 02 61 33 DF AE 77 02 61 34 DC B9 31 43 76 61 35 DF 62
  1156.             19 77 02 61 36 DF BC BB BA BC BB BB 77 06 77 02 5C 0B 19 16
  1157.            )
  1158.       "~S ~S: missing lambda list" (:BEFORE) (:AFTER) (:AROUND)
  1159.       "STANDARD method combination doesn't allow the method qualifiers to be ~S"
  1160.       LAMBDA-LIST-KEYWORD-P EQL LIST 'EQL FIND-CLASS QUOTE &OPTIONAL #.#'EQ &KEY &REST 0.
  1161.       *KEYWORD-PACKAGE* &ALLOW-OTHER-KEYS 1. (:AROUND) (COMPILE) #.#'EQUAL SYSTEM::IGNORABLE
  1162.       DECLARE GENERIC-FUNCTION BLOCK BLOCK-NAME N-GENSYMS LAMBDA MACROLET CALL-NEXT-METHOD 'IF
  1163.       'APPLY 'APPLY '#'%NO-NEXT-METHOD 'IF 'FUNCALL '%NO-NEXT-METHOD NEXT-METHOD-P APPLY FUNCTION
  1164.       ERROR "~S ~S: ~S is invalid within ~S methods" 'CALL-NEXT-METHOD
  1165.       "~S ~S: ~S is invalid within ~S methods" 'NEXT-METHOD-P MAKE-STANDARD-METHOD :INITFUNCTION
  1166.       ((DECLARE (COMPILE))) %OPTIMIZE-FUNCTION-LAMBDA (T) :WANTS-NEXT-METHOD-P
  1167.       :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
  1168.   )  )
  1169. #Y(#:TOP-LEVEL-FORM-83 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) METHODS-AGREE-P
  1170.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1171.    #Y(METHODS-AGREE-P
  1172.       #36Y(02 00 00 00 00 03 D5 AA D6 6E 2A D5 AA D6 6E 2A 30 FF 1E 0E D5 AA D7 6E 2A D5 AA D7 6E
  1173.            2A 2F 03 19 03 19 03
  1174.           )
  1175.       STANDARD-METHOD 4. 3. SPECIALIZERS-AGREE-P
  1176.   )  )
  1177. #Y(#:TOP-LEVEL-FORM-84 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SPECIALIZERS-AGREE-P
  1178.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1179.    #Y(SPECIALIZERS-AGREE-P
  1180.       #26Y(02 00 00 00 00 03 A9 6E 41 A9 6E 41 30 FE 1E 08 D5 AA AA 32 01 26 19 03 19 03)
  1181.       #Y(SPECIALIZERS-AGREE-P-1
  1182.          #33Y(02 00 00 00 00 03 A9 9A 55 1D 14 A9 31 01 1E 0F A8 31 01 1E 0A 9A 57 74 9A 57 74 30
  1183.               FE 19 03 19 03
  1184.   )  )  )    )
  1185. #Y(#:TOP-LEVEL-FORM-85 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) METHOD-APPLICABLE-P
  1186.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1187.    #Y(METHOD-APPLICABLE-P #19Y(02 00 00 00 00 03 95 00 A9 D6 AC D7 6E 2A 32 01 26 19 03) TYPEP
  1188.       STANDARD-METHOD 3.
  1189.   )  )
  1190. #Y(#:TOP-LEVEL-FORM-86 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1191.    SORT-APPLICABLE-METHODS SYSTEM::REMOVE-OLD-DEFINITIONS
  1192.    #Y(SORT-APPLICABLE-METHODS
  1193.       #30Y(03 00 00 00 00 04 00 2A 02 7B 03 00 00 7B 02 00 01 AB 6D 9E A8 69 00 01 37 03 31 61 19
  1194.            05
  1195.           )
  1196.       #Y(SORT-APPLICABLE-METHODS-1
  1197.          #109Y(02 00 00 00 00 03 D6 AA D7 6E 2A D6 AA D7 6E 2A 65 00 02 5F 1A 80 4E 98 20 80 46 02
  1198.                19 0A 00 19 0A 02 19 0D 00 19 0D 83 01 00 14 65 00 01 6D 94 A8 AC 6D 94 A9 AC 6D 94
  1199.                99 20 5C 98 20 60 A9 6E 25 D8 A8 D9 7D 2A 00 A9 A8 37 06 6E 59 A9 A9 37 06 6E 59 A8
  1200.                A8 8C 01 2D 48 A8 A8 8C 01 2E 45 16 03 16 03 7F 01 A8 89 92 FF BD 00 19 07
  1201.               )
  1202.          NIL STANDARD-METHOD 3. CLASS 5.
  1203.   )  )  )
  1204. #Y(#:TOP-LEVEL-FORM-87 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PARTITION-METHOD-LIST
  1205.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1206.    #Y(PARTITION-METHOD-LIST
  1207.       #82Y(01 00 00 00 00 02 01 04 AC 5F 1A 30 A8 80 06 1A 27 A8 80 05 1A 22 A8 80 04 1A 1D 83 01
  1208.            00 D5 A8 D6 6E 2A 8F 00 66 A7 D7 88 FF 66 A7 D8 88 FF 66 A7 D9 89 FF 03 A8 80 03 16 01
  1209.            7F 01 A8 89 92 5B 16 02 AA 6E 43 AA 6E 43 AA 6E 43 AA 6E 43 3F 04 19 06
  1210.           )
  1211.       STANDARD-METHOD 4. (:BEFORE) (:AFTER) (:AROUND)
  1212.   )  )
  1213. #Y(#:TOP-LEVEL-FORM-88 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CALLINFO
  1214.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1215.    #Y(CALLINFO #22Y(05 00 00 00 00 06 AC D5 AD D5 8C 01 2E 01 9D 14 01 03 5C 06 19 06) 0.)
  1216.   )
  1217. #Y(#:TOP-LEVEL-FORM-89 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GF-SIGNATURE
  1218.    SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GF-SIGNATURE #12Y(01 00 00 00 00 02 A8 D5 31 27 19 02) 3.)
  1219.   )
  1220. #Y(#:TOP-LEVEL-FORM-90 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C3 19 01)
  1221.    #.(SYSTEM::GET-SETF-SYMBOL 'GF-SIGNATURE) SYSTEM::REMOVE-OLD-DEFINITIONS
  1222.    #Y(#1=(SETF GF-SIGNATURE) #13Y(02 00 00 00 00 03 A8 D5 AB 31 28 19 03) 3.) #1#
  1223.   )
  1224. #Y(#:TOP-LEVEL-FORM-91 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GF-ARGORDER
  1225.    SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GF-ARGORDER #12Y(01 00 00 00 00 02 A8 D5 31 27 19 02) 4.)
  1226.   )
  1227. #Y(#:TOP-LEVEL-FORM-92 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C3 19 01)
  1228.    #.(SYSTEM::GET-SETF-SYMBOL 'GF-ARGORDER) SYSTEM::REMOVE-OLD-DEFINITIONS
  1229.    #Y(#1=(SETF GF-ARGORDER) #13Y(02 00 00 00 00 03 A8 D5 AB 31 28 19 03) 4.) #1#
  1230.   )
  1231. #Y(#:TOP-LEVEL-FORM-93 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GF-METHODS
  1232.    SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GF-METHODS #12Y(01 00 00 00 00 02 A8 D5 31 27 19 02) 5.)
  1233.   )
  1234. #Y(#:TOP-LEVEL-FORM-94 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C3 19 01)
  1235.    #.(SYSTEM::GET-SETF-SYMBOL 'GF-METHODS) SYSTEM::REMOVE-OLD-DEFINITIONS
  1236.    #Y(#1=(SETF GF-METHODS) #13Y(02 00 00 00 00 03 A8 D5 AB 31 28 19 03) 5.) #1#
  1237.   )
  1238. #Y(#:TOP-LEVEL-FORM-95
  1239.    #30Y(00 00 00 00 00 01 00 2A 01 D5 A7 D6 31 27 0B 01 00 D7 2E 03 D7 A9 69 04 01 31 74 C2 19 03)
  1240.    #Y(#:TOP-LEVEL-FORM-95-1 #8Y(00 00 00 00 01 16 1A 7E)) 1. %MAKE-GF
  1241.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1242.    #Y(%MAKE-GF #20Y(04 00 00 00 00 05 AB 65 00 01 5F AD AD AD 77 04 31 33 19 05) NIL)
  1243.   )
  1244. #Y(#:TOP-LEVEL-FORM-96 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-FAST-GF
  1245.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1246.    #Y(MAKE-FAST-GF #19Y(03 00 00 00 00 04 AA AA AA 5F 6A 04 00 A7 2E 01 15 19 04) %MAKE-GF
  1247.       FINALIZE-FAST-GF
  1248.   )  )
  1249. #Y(#:TOP-LEVEL-FORM-97
  1250.    #41Y(00 00 00 00 00 01 00 2A 01 37 05 C0 F9 30 63 0B 00 00 D6 2E 02 D6 A8 69 03 01 31 74 D9 2E
  1251.         02 D9 A8 69 05 01 31 74 C4 19 02
  1252.        )
  1253.    #.#'EQUAL FINALIZE-FAST-GF SYSTEM::REMOVE-OLD-DEFINITIONS
  1254.    #Y(FINALIZE-FAST-GF
  1255.       #117Y(01 00 00 00 00 02 A8 6B 01 90 00 99 57 57 56 1B 07 99 57 74 D7 32 01 2E 14 A8 99 76 A7
  1256.             65 00 01 37 01 88 64 38 65 00 01 AA 6B 03 D9 DA DB DC AB 8E 08 3C 00 14 6F 02 20 DE DF
  1257.             E0 E1 B0 8E 0D 32 CE 14 77 01 32 02 20 78 03 77 04 77 04 6D 5C A7 E4 31 27 16 01 F6 A9
  1258.             A9 A9 30 65 16 02 14 AD E4 A9 31 28 AD E5 5F E6 B1 6F 03 00 31 28 19 07 C8 1A 42 CD 1A
  1259.             4C
  1260.            )
  1261.       NIL GF-SIGNATURE 0. N-GENSYMS LET ((GF 'MAGIC)) (DECLARE (COMPILE)) %GENERIC-FUNCTION-LAMBDA
  1262.       (&REST ARGS) (DECLARE (INLINE APPLY)) APPLY 'INITIAL-FUNCALL-GF GF ARGS 'NIL 1. 2.
  1263.       INITIAL-FUNCALL-GF
  1264.      )
  1265.    WARN-IF-GF-ALREADY-CALLED
  1266.    #Y(WARN-IF-GF-ALREADY-CALLED
  1267.       #52Y(01 00 00 00 00 02 A8 6B 01 90 00 99 57 57 56 1B 07 99 57 74 D7 32 01 2E 14 A8 99 76 A7
  1268.            65 00 01 37 01 6D 64 AD D8 6E 27 99 21 06 D9 AE 2F 05 19 07 00 19 07
  1269.           )
  1270.       NIL GF-SIGNATURE 0. 1.
  1271.       "The generic function ~S is being modified, but has already been called." WARN
  1272.   )  )
  1273. #Y(#:TOP-LEVEL-FORM-98 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) INITIAL-FUNCALL-GF
  1274.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1275.    #Y(INITIAL-FUNCALL-GF #14Y(01 00 00 00 01 17 A9 2E 00 A9 9A 97 00 03) INSTALL-DISPATCH)
  1276.   )
  1277. #Y(#:TOP-LEVEL-FORM-99 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) INSTALL-DISPATCH
  1278.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1279.    #Y(INSTALL-DISPATCH
  1280.       #46Y(01 00 00 00 00 02 A8 2E 00 41 02 D6 A9 D7 D8 9C 76 77 04 6D 5C AB D9 A9 D9 6E 27 31 28
  1281.            AB DA A9 DB 6E 27 AA DA 6E 27 A8 C7 5B 31 28 19 05
  1282.           )
  1283.       COMPUTE-DISPATCH LET (DECLARE (COMPILE)) %GENERIC-FUNCTION-LAMBDA 1. 2. 3. 0.
  1284.   )  )
  1285. #Y(#:TOP-LEVEL-FORM-100 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPUTE-DISPATCH
  1286.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1287.    #Y(COMPUTE-DISPATCH
  1288.       #191Y(01 00 00 00 00 02 00 2A 01 7B 02 00 00 98 2A 06 64 01 00 6B 00 90 00 A7 2E 01 0B 02 00
  1289.             99 57 57 56 1B 07 99 57 74 D7 32 01 2E 14 8E 00 80 66 00 14 8E 01 80 67 C4 0B 04 01 64
  1290.             04 00 8E 02 80 60 00 14 32 02 20 0B 04 02 64 05 00 6B 05 64 06 00 6B 06 37 01 31 82 0B
  1291.             06 03 00 0B 06 04 0B 06 05 9E 2A 01 A7 2B 07 01 0B 00 00 A9 A9 5F 06 03 00 70 64 08 05
  1292.             6E 43 64 09 00 8E 07 2A 00 14 6F 02 20 DE DF 64 0C 03 AC 06 0E 04 1B 20 00 78 03 77 03
  1293.             3F 02 19 0C 37 01 31 82 1A FF 94 C3 1A FF 96 A8 5C 01 1A FF 9B DD AE 5C 02 1A 51 64 0E
  1294.             01 E0 E1 64 12 00 77 02 06 11 02 78 03 5C 01 1A 4E
  1295.            )
  1296.       GF-SIGNATURE N-GENSYMS 0. APPLY FUNCALL GF-ARGORDER GF-METHODS
  1297.       #Y(COMPUTE-DISPATCH-RECURSION
  1298.          #446Y(03 00 00 00 00 04 29 2A 02 7B 04 00 00 7B 02 00 01 8F 03 1F 06 00 00 1C 3B 98 2A 02
  1299.                06 01 00 56 0B 00 00 14 65 01 01 30 94 0B 00 01 E8 E9 5F AE 1A 80 C1 02 0C 01 05 00
  1300.                19 05 79 03 F8 9D F7 D7 AD 5C 02 F6 1A 80 63 C7 1A 25 A7 64 0A 01 31 42 58 1A 80 42
  1301.                37 01 6E 82 64 01 01 6E 41 01 04 AB 23 01 57 37 01 6E 82 D8 D9 DA AF 23 06 59 C8 14
  1302.                77 02 5C 03 FA A7 AD 6B 09 DF 99 57 74 37 03 88 B3 48 E0 99 57 74 64 0B 01 6E 42 6F
  1303.                01 17 99 57 57 74 37 03 30 B1 F6 77 02 5C 01 F9 E1 A8 AF 5C 03 F8 E2 A8 AF 5C 03 F7
  1304.                16 01 AC AB 77 02 07 01 06 58 0C 01 06 E3 AA E4 65 01 04 65 01 02 E5 AE AE 65 01 02
  1305.                E6 E7 65 02 01 77 02 07 01 03 78 03 77 01 6F 02 20 77 03 07 01 03 78 02 77 03 5C 03
  1306.                19 0B 90 00 64 05 00 EA A9 EB 6E 2A 6D 94 80 02 16 01 7F 00 98 20 6B 16 01 A7 7C A3
  1307.                00 37 05 6E 4A 6F 00 17 37 06 03 17 F7 6E 4E 5F A8 1A 28 90 00 9C 2A 01 7B 01 00 00
  1308.                14 77 01 06 07 00 75 A9 69 18 01 B3 37 05 6E 4A 64 09 01 68 FE D8 5C 02 F6 80 02 16
  1309.                01 7F 00 98 20 55 16 01 A7 7C A3 00 A9 69 19 01 AE 37 05 7D 49 06 67 1A 5F AF 1A 33
  1310.                AA 69 1D 01 67 1A A9 B1 9B 33 16 01 1A 80 57 F4 64 04 01 AA 60 AB 77 02 77 01 32 02
  1311.                20 5D 02 19 09 90 00 64 06 00 EA A9 EB 6E 2A 6D 94 80 02 16 01 7F 00 98 20 6B 16 01
  1312.                A7 7C A3 00 37 06 6E 4F 37 07 6E 4B 95 1B A8 8D 00 26 09 A7 6E 41 F1 8C 01 2F FF AC
  1313.                06 04 00 75 AF F3 64 06 01 77 02 06 07 01 76 27 FE 50 F6 8E 01 FF A4 15 19 08
  1314.               )
  1315.          NIL 0. SETQ MAKE-HASH-TABLE :TEST FUNCTION 1. EQ EQUAL HASH-TUPLE-FUNCTION &REST #.#'CONS
  1316.          GETHASH SYSTEM::PUTHASH LET RETURN-FROM OR 'COMPUTE-EFFECTIVE-METHOD QUOTE #.#'SECOND
  1317.          #.#'CONSP STANDARD-METHOD 3. #.#'EQL
  1318.          #Y(COMPUTE-DISPATCH-RECURSION-1
  1319.             #23Y(01 00 00 00 00 02 65 00 01 65 01 01 D6 AB D7 6E 2A 6D 94 2F 03 19 02) NIL
  1320.             STANDARD-METHOD 3. TYPEP
  1321.            )
  1322.          #Y(COMPUTE-DISPATCH-RECURSION-2
  1323.             #20Y(01 00 00 00 00 02 65 00 01 D6 AA D7 6E 2A 6D 94 31 01 19 02) NIL STANDARD-METHOD
  1324.             3.
  1325.            )
  1326.          <T> BC-P 5.
  1327.          #Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE
  1328.             #202Y(03 00 00 00 00 04 29 2A 01 7B 04 00 00 8F 03 0A 98 2A 01 9C 56 0B 00 00 1A 1C 07
  1329.                   01 01 75 A8 69 01 01 AB 37 05 6E 4A 65 01 02 07 02 01 33 19 05 7B 00 01 00 16 01
  1330.                   A7 69 02 01 AC 37 04 6E 57 8E 00 6E 16 01 D8 D9 65 00 02 DA 64 04 00 DB A8 DC 7D
  1331.                   2A 00 77 02 77 03 64 03 00 64 03 00 6C 08 01 02 64 05 00 B1 37 07 6E 48 1A 0E 90
  1332.                   00 A7 64 08 00 6C 08 80 02 16 01 7F 00 98 20 6F 16 01 A7 7C A3 00 37 07 6E 48 AB
  1333.                   69 09 01 AF 37 05 6E 4A 68 FF 74 64 04 00 64 04 00 6C 0A 01 02 B1 1A 0E 90 00 A7
  1334.                   64 09 00 6C 0A 80 02 16 01 7F 00 98 20 6F 16 01 A7 7C A3 00 37 07 6E 48 AC 69 0B
  1335.                   01 B0 37 05 6E 4A 68 FF 40 5C 04 19 06
  1336.                  )
  1337.             NIL
  1338.             #Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE-1
  1339.                #23Y(01 00 00 00 00 02 65 00 01 65 01 01 D6 AB D7 6E 2A 6D 94 2F 03 19 02) NIL
  1340.                STANDARD-METHOD 3. BC-AND
  1341.               )
  1342.             #Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE-2
  1343.                #24Y(01 00 00 00 00 02 65 00 01 A9 2F 01 1E 08 65 00 01 9A 55 54 19 02 19 02) NIL
  1344.                SUBCLASSP
  1345.               )
  1346.             IF TYPEP QUOTE CLASS 2. BC-AND
  1347.             #Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE-3
  1348.                #23Y(01 00 00 00 00 02 65 02 01 D6 AA D7 6E 2A 6D 94 65 00 01 2F 03 19 02) NIL
  1349.                STANDARD-METHOD 3. BC-AND
  1350.               )
  1351.             BC-AND-NOT
  1352.             #Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE-4
  1353.                #23Y(01 00 00 00 00 02 65 02 01 D6 AA D7 6E 2A 6D 94 65 00 01 2F 03 19 02) NIL
  1354.                STANDARD-METHOD 3. BC-AND-NOT
  1355.            )  )
  1356.          CLASS-OF CASE
  1357.         )
  1358.       &REST
  1359.       (DECLARE
  1360.        (INLINE CASE EQL EQ TYPEP ARRAYP BIT-VECTOR-P CHARACTERP COMPLEXP CONSP FLOATP FUNCTIONP
  1361.         GENERIC-FUNCTION-P HASH-TABLE-P INTEGERP LISTP NULL NUMBERP PACKAGEP PATHNAMEP
  1362.         RANDOM-STATE-P RATIONALP READTABLEP REALP SYSTEM::SEQUENCEP STD-INSTANCE-P STREAMP STRINGP
  1363.         SYMBOLP VECTORP CLASS-OF CONS GETHASH SYSTEM::PUTHASH FUNCALL APPLY
  1364.       ))
  1365.       BLOCK 'NO-APPLICABLE-METHOD QUOTE
  1366.   )  )
  1367. #Y(#:TOP-LEVEL-FORM-101 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) HASH-TUPLE-FUNCTION
  1368.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1369.    #Y(HASH-TUPLE-FUNCTION
  1370.       #61Y(01 00 00 00 00 02 99 25 00 30 C1 19 02 C2 19 02 C3 19 02 C4 19 02 C5 19 02 C6 19 02 C7
  1371.            19 02 C8 19 02 C9 19 02 CA 19 02 CB 19 02 CC 19 02 CD 19 02 CE 19 02 CF 19 02 D0 19 02
  1372.            D1 19 02
  1373.           )
  1374.       #S(HASH-TABLE EQ (16. . 46.) (15. . 43.) (14. . 40.) (13. . 37.) (12. . 34.) (11. . 31.)
  1375.          (10. . 28.) (9. . 25.) (8. . 22.) (7. . 19.) (6. . 16.) (5. . 13.) (4. . 10.) (3. . 7.)
  1376.          (2. . 4.) (1. . 1.)
  1377.         )
  1378.       (LAMBDA (T1) T1) (LAMBDA (T1 T2) (CONS T1 T2)) (LAMBDA (T1 T2 T3) (CONS T1 (CONS T2 T3)))
  1379.       (LAMBDA (T1 T2 T3 T4) (CONS (CONS T1 T2) (CONS T3 T4)))
  1380.       (LAMBDA (T1 T2 T3 T4 T5) (CONS (CONS T1 T2) (CONS T3 (CONS T4 T5))))
  1381.       (LAMBDA (T1 T2 T3 T4 T5 T6) (CONS (CONS T1 T2) (CONS (CONS T3 T4) (CONS T5 T6))))
  1382.       (LAMBDA (T1 T2 T3 T4 T5 T6 T7) (CONS (CONS T1 (CONS T2 T3)) (CONS (CONS T4 T5) (CONS T6 T7)))
  1383.       )
  1384.       (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8)
  1385.        (CONS (CONS (CONS T1 T2) (CONS T3 T4)) (CONS (CONS T5 T6) (CONS T7 T8)))
  1386.       )
  1387.       (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9)
  1388.        (CONS (CONS (CONS T1 T2) (CONS T3 T4)) (CONS (CONS T5 T6) (CONS T7 (CONS T8 T9))))
  1389.       )
  1390.       (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10)
  1391.        (CONS (CONS (CONS T1 T2) (CONS T3 T4)) (CONS (CONS T5 T6) (CONS (CONS T7 T8) (CONS T9 T10)))
  1392.       ))
  1393.       (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11)
  1394.        (CONS (CONS (CONS T1 T2) (CONS T3 T4))
  1395.         (CONS (CONS T5 (CONS T6 T7)) (CONS (CONS T8 T9) (CONS T10 T11)))
  1396.       ))
  1397.       (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12)
  1398.        (CONS (CONS (CONS T1 T2) (CONS T3 T4))
  1399.         (CONS (CONS (CONS T5 T6) (CONS T7 T8)) (CONS (CONS T9 T10) (CONS T11 T12)))
  1400.       ))
  1401.       (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13)
  1402.        (CONS (CONS (CONS T1 T2) (CONS T3 (CONS T4 T5)))
  1403.         (CONS (CONS (CONS T6 T7) (CONS T8 T9)) (CONS (CONS T10 T11) (CONS T12 T13)))
  1404.       ))
  1405.       (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14)
  1406.        (CONS (CONS (CONS T1 T2) (CONS (CONS T3 T4) (CONS T5 T6)))
  1407.         (CONS (CONS (CONS T7 T8) (CONS T9 T10)) (CONS (CONS T11 T12) (CONS T13 T14)))
  1408.       ))
  1409.       (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15)
  1410.        (CONS (CONS (CONS T1 (CONS T2 T3)) (CONS (CONS T4 T5) (CONS T6 T7)))
  1411.         (CONS (CONS (CONS T8 T9) (CONS T10 T11)) (CONS (CONS T12 T13) (CONS T14 T15)))
  1412.       ))
  1413.       (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16)
  1414.        (CONS (CONS (CONS (CONS T1 T2) (CONS T3 T4)) (CONS (CONS T5 T6) (CONS T7 T8)))
  1415.         (CONS (CONS (CONS T9 T10) (CONS T11 T12)) (CONS (CONS T13 T14) (CONS T15 T16)))
  1416.       ))
  1417.       (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 &REST MORE-T)
  1418.        (CONS (CONS (CONS (CONS T1 T2) (CONS T3 T4)) (CONS (CONS T5 T6) (CONS T7 T8)))
  1419.         (CONS (CONS (CONS T9 T10) (CONS T11 T12)) (CONS (CONS T13 T14) MORE-T))
  1420.   )  )))
  1421. #Y(#:TOP-LEVEL-FORM-102 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1422.    COMPUTE-EFFECTIVE-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS
  1423.    #Y(COMPUTE-EFFECTIVE-METHOD
  1424.       #382Y(01 00 00 00 01 17 00 2A 04 AA 6B 00 90 00 A7 6B 01 AC D7 AA 31 3F 0B 03 00 9A 57 57 56
  1425.             1B 07 9A 57 74 D7 32 01 2E 14 8E 00 80 CB 00 14 8E 01 80 CC C4 0B 05 01 A9 8E 02 80 C7
  1426.             00 14 32 02 20 0B 05 02 A9 8E 02 80 C0 00 14 32 02 20 0B 05 03 5F 64 06 03 B1 6B 06 B2
  1427.             6B 07 B0 69 08 01 A8 37 05 7D 4A 00 1C 80 A8 8F 05 1C AF 88 95 18 95 0A A8 6F 00 17 E0
  1428.             A8 37 05 7D 4D 00 1C 07 E1 A8 8D 00 25 80 93 16 01 A7 64 0A 00 AA 2C 03 10 F6 14 2E 11
  1429.             41 04 8F 03 80 CC A5 2A 04 A7 69 13 01 A8 2B 14 01 0B 01 00 A8 2B 15 01 0B 01 01 A8 2B
  1430.             16 01 0B 01 02 A8 2B 17 01 0B 01 03 AC AC AC AC 9C 70 90 00 06 11 01 22 11 98 57 75 64
  1431.             11 02 89 FF 08 64 10 03 B1 88 FF 80 94 ED EE B2 8E 0D 80 93 00 14 AB 77 01 32 02 20 78
  1432.             02 5C 02 14 F1 5F F2 AA 77 04 30 5C 19 15 37 01 31 82 1A FF 2F C3 1A FF 31 A8 5C 01 1A
  1433.             FF 34 DA A9 5C 02 1A FF 3A 95 09 B4 A5 36 01 1A 78 A1 57 57 57 74 E2 A9 6C 0E 6F 02 20
  1434.             60 37 05 6E 4E A7 6E 41 2E 01 FB 64 0B 03 E4 5F AA B0 1A 19 16 03 1A 1A 90 01 99 1F 77
  1435.             90 01 A8 A8 77 02 77 01 80 04 16 02 7F 01 7F 00 99 20 68 16 02 A7 30 A3 16 01 76 7E 02
  1436.             20 04 16 02 1A FF 22 95 12 B8 04 11 36 01 1A 77 98 57 56 1A FF 79 EF F0 04 0F 76 77 02
  1437.             5C 01 1A FF 62
  1438.            )
  1439.       GF-SIGNATURE N-GENSYMS 0. APPLY FUNCALL &REST GF-ARGORDER GF-METHODS
  1440.       #Y(COMPUTE-EFFECTIVE-METHOD-1 #14Y(01 00 00 00 00 02 A8 65 00 01 2F 01 19 02) NIL
  1441.          METHOD-APPLICABLE-P
  1442.         )
  1443.       NO-APPLICABLE-METHOD STD-METHOD-SIGNATURE #.#'FOURTH #.#'SIXTH #.#'FIFTH MAPCAP &KEY
  1444.       SORT-APPLICABLE-METHODS PARTITION-METHOD-LIST NO-PRIMARY-METHOD
  1445.       #Y(COMPUTE-EFFECTIVE-METHOD-EF-1
  1446.          #79Y(04 00 00 00 00 05 8E 01 2B AB AB AB 07 00 01 33 19 05 AD AD AD 91 06 68 18 65 01 02
  1447.               D9 AA 77 02 DA DB 65 01 04 AC 77 03 77 02 07 01 03 5D 03 19 08 8F 01 55 90 01 D6 A8
  1448.               D7 6E 2A D6 A9 D8 8A 2A 51 65 01 02 D9 A9 77 02 07 01 03 5D 02 19 07
  1449.              )
  1450.          NIL STANDARD-METHOD 1. 2. QUOTE FUNCTION LAMBDA
  1451.         )
  1452.       #Y(COMPUTE-EFFECTIVE-METHOD-EF-2
  1453.          #65Y(03 00 00 00 00 04 AA A9 07 00 02 70 8F 03 05 D6 5F AC 1A 1B 15 19 04 90 00 65 01 02
  1454.               D7 D8 AA D9 6E 2A 77 02 07 01 03 78 02 80 02 16 01 7F 00 98 20 65 16 01 A7 7C A3 00
  1455.               A9 77 01 32 02 20 58 19 05
  1456.              )
  1457.          NIL PROGN QUOTE STANDARD-METHOD 1.
  1458.         )
  1459.       #Y(COMPUTE-EFFECTIVE-METHOD-EF-3
  1460.          #63Y(02 00 00 00 00 03 A9 07 00 03 70 8F 02 08 D6 A8 5F AC 6E 42 1A 1B 15 19 03 90 00 65
  1461.               01 02 D7 D8 AA D9 6E 2A 77 02 07 01 03 78 02 80 02 16 01 7F 00 98 20 65 16 01 A7 30
  1462.               A3 16 01 5D 02 19 04
  1463.              )
  1464.          NIL MULTIPLE-VALUE-PROG1 QUOTE STANDARD-METHOD 1.
  1465.         )
  1466.       #Y(COMPUTE-EFFECTIVE-METHOD-EF-4
  1467.          #54Y(01 00 00 00 00 02 90 01 D6 A8 D7 6E 2A D6 A9 D8 8A 2A 0E 65 01 02 D9 A9 77 02 07 01
  1468.               03 5D 02 19 04 91 03 07 00 04 70 65 01 02 D9 AA 77 02 A9 07 01 03 5D 03 19 05
  1469.              )
  1470.          NIL STANDARD-METHOD 1. 2. QUOTE
  1471.         )
  1472.       #Y(COMPUTE-EFFECTIVE-METHOD-EF-5
  1473.          #28Y(01 00 00 00 00 02 8F 01 10 D6 D7 65 01 04 AB 07 00 03 70 77 03 5C 02 19 02 00 19 02)
  1474.          NIL FUNCTION LAMBDA
  1475.         )
  1476.       FUNCTION LAMBDA DECLARE IGNORE LET (DECLARE (COMPILE) (INLINE FUNCALL APPLY))
  1477.   )  )
  1478. #Y(#:TOP-LEVEL-FORM-103 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  1479.    (SPECIAL |#'initialize-instance|) |#'initialize-instance|
  1480.   )
  1481. #Y(#:TOP-LEVEL-FORM-104 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  1482.    (SPECIAL |#'reinitialize-instance|) |#'reinitialize-instance|
  1483.   )
  1484. #Y(#:TOP-LEVEL-FORM-105 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  1485.    (SPECIAL |#'shared-initialize|) |#'shared-initialize|
  1486.   )
  1487. #Y(#:TOP-LEVEL-FORM-106 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) STD-ADD-METHOD
  1488.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1489.    #Y(STD-ADD-METHOD
  1490.       #287Y(02 00 00 00 00 03 A9 6B 00 D6 AA D7 6E 2A 90 00 90 02 8D 01 2B 16 98 57 74 9A 57 74 8C
  1491.             01 2B 80 60 D9 AB 9A 57 74 AE 9D 57 74 5E 04 D8 AB 90 02 AE 9D 1A 75 DA AB AD 5E 02 DB
  1492.             AC AC 5E 02 A7 88 96 80 6E 99 57 57 57 74 A8 6D 95 86 07 80 62 DD AB 9B 57 57 57 74 AE
  1493.             5E 03 D6 AA DE 5F 31 2B 16 01 1A 80 85 A9 2E 11 1A 80 A1 A9 2E 13 1A 80 9B EB A9 AD 2C
  1494.             03 17 A8 AC 6B 0E 37 07 31 48 1A 80 92 98 57 57 56 1C 07 99 57 57 56 1C FF A6 99 57 57
  1495.             56 1C 07 98 57 57 56 1C FF 9E 99 57 57 57 56 1C 0F 98 57 57 57 56 1B FF 94 98 57 57 56
  1496.             1C FF 9E 16 02 D6 A9 DE 8B 2A 10 A8 7D 2D 01 D6 A9 DF 5F 31 2B D6 A9 E0 AC 31 2B D6 A9
  1497.             DF 8A 2A 1A D6 A9 E1 6E 2A A9 72 01 90 00 D6 AB DF AA 31 2B 16 01 98 57 56 1B FF 72 16
  1498.             01 A9 2E 0D A8 AA 6B 0E 37 06 96 0F 01 6E 56 AA 0E 10 21 FF 67 AA 0E 12 21 FF 67 AA 0E
  1499.             14 22 03 A9 2E 15 A9 8E 01 FF 60 AB 2E 0E 76 AB 2F 18 AA 2E 19 16 01 9A 19 03
  1500.            )
  1501.       GF-SIGNATURE STANDARD-METHOD 5. "~S has ~S, but ~S has ~S required parameters"
  1502.       "~S has ~S, but ~S has ~S optional parameters" "~S has &REST or &KEY, but ~S hasn't."
  1503.       "~S has &REST or &KEY, but ~S hasn't." SUBSETP "~S doesn't accept the keywords ~S of ~S" 2.
  1504.       1. 6. 7. WARN-IF-GF-ALREADY-CALLED GF-METHODS METHODS-AGREE-P |#'initialize-instance|
  1505.       NOTE-II-CHANGE |#'reinitialize-instance| NOTE-RI-CHANGE |#'shared-initialize| NOTE-SI-CHANGE
  1506.       "Replacing method ~S in ~S" WARN #.(SYSTEM::GET-SETF-SYMBOL 'GF-METHODS) FINALIZE-FAST-GF
  1507.   )  )
  1508. #Y(#:TOP-LEVEL-FORM-107 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) STD-REMOVE-METHOD
  1509.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1510.    #Y(STD-REMOVE-METHOD
  1511.       #76Y(02 00 00 00 00 03 A8 AA 6B 00 37 06 96 01 02 6E 56 8F 00 29 AA 2E 02 D8 A8 AC 2C 03 04
  1512.            AA 0E 05 21 20 AA 0E 07 21 20 AA 0E 09 22 03 A9 2E 0A A7 AB 6B 00 37 07 6E 48 AB 2F 0B
  1513.            AA 2E 0C 16 01 9A 19 03 A9 2E 06 1A 68 A9 2E 08 1A 63
  1514.           )
  1515.       GF-METHODS STD-METHOD-INITFUNCTION WARN-IF-GF-ALREADY-CALLED "Removing method ~S in ~S" WARN
  1516.       |#'initialize-instance| NOTE-II-CHANGE |#'reinitialize-instance| NOTE-RI-CHANGE
  1517.       |#'shared-initialize| NOTE-SI-CHANGE #.(SYSTEM::GET-SETF-SYMBOL 'GF-METHODS) FINALIZE-FAST-GF
  1518.   )  )
  1519. #Y(#:TOP-LEVEL-FORM-108 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) STD-FIND-METHOD
  1520.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1521.    #Y(STD-FIND-METHOD
  1522.       #61Y(03 00 01 00 00 0A 3A 01 02 7A 01 AB 6B 00 5F 1A 20 15 19 06 DA AC AC AC 5E 03 83 01 00
  1523.            D6 A8 D7 6E 2A AD 89 FF 09 D6 A8 D8 6E 2A AC 86 04 62 7F 01 A8 89 92 65 16 02 8E 01 5A
  1524.            00 19 05
  1525.           )
  1526.       GF-METHODS STANDARD-METHOD 4. 3. SPECIALIZERS-AGREE-P
  1527.       "~S has no method with qualifiers ~:S and specializers ~S"
  1528.   )  )
  1529. #Y(#:TOP-LEVEL-FORM-109 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DEFMETHOD
  1530.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1531.    #Y(DEFMETHOD
  1532.       #67Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 29 9A 57 74 9B 57 75 A8 85 02 24 DA 5F DB
  1533.            DC DD DE AE 77 02 77 02 77 03 DF DE AD 77 02 D9 AE AE B2 6A 04 0B 77 03 5C 04 19 05 A9
  1534.            2E 01 19 03 D8 D9 AA 5E 02
  1535.           )
  1536.       2. SYSTEM::MACRO-CALL-ERROR FUNCTION-NAME-P
  1537.       "~S: the name of a function must be a symbol, not ~S" DEFMETHOD LET EVAL-WHEN (COMPILE)
  1538.       SYSTEM::C-DEFUN QUOTE DO-DEFMETHOD ANALYZE-METHOD-DESCRIPTION
  1539.   )  )
  1540. #Y(#:TOP-LEVEL-FORM-110 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DO-DEFMETHOD
  1541.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1542.    #Y(DO-DEFMETHOD
  1543.       #61Y(02 00 00 00 00 03 A9 88 51 29 A9 D7 AA D8 6E 2A AB 90 01 9A 57 74 9B 57 57 74 01 02 77
  1544.            05 90 02 6B 04 2C 03 05 F6 2F 06 14 A9 2F 07 99 19 03 D6 AB 5E 01 A9 6B 00 A7 8B 1A 75
  1545.            15 1A 6B
  1546.           )
  1547.       FDEFINITION "~S doesn't name a generic function" STANDARD-METHOD 5. COUNTUP MAKE-FAST-GF
  1548.       SYSTEM::SET-FDEFINITION STD-ADD-METHOD
  1549.   )  )
  1550. #Y(#:TOP-LEVEL-FORM-111 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COUNTUP
  1551.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1552.    #Y(COUNTUP #22Y(01 00 00 00 00 02 A8 5F 1A 05 82 01 14 80 00 A8 24 00 77 15 19 03) 0.)
  1553.   )
  1554. #Y(#:TOP-LEVEL-FORM-112 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANALYZE-DEFGENERIC
  1555.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1556.    #Y(ANALYZE-DEFGENERIC
  1557.       #272Y(05 00 00 00 00 06 AB 85 00 0F AC AC AC 2C 03 02 41 06 01 03 B2 5F 1A 80 D7 D6 AD AD AD
  1558.             5E 03 D8 B8 B8 C4 1A 80 79 83 01 00 14 8B 08 72 98 56 25 05 80 67 DB 91 01 8C 00 26 80
  1559.             B3 DC B8 B8 C8 1A 80 5D DE B8 B8 DF 5E 03 8E 03 77 98 F9 1A 80 9E E1 B8 B8 CD 1A 80 48
  1560.             E3 B8 B8 E2 5E 03 A7 6E 41 24 0B 6D 98 57 74 8B 04 67 8E 02 6B 98 57 F8 1A 80 7C 91 00
  1561.             E4 88 FF 80 75 E5 B8 B8 D1 1A 20 91 00 E7 88 FF 80 68 E8 B8 B8 D4 1A 13 91 00 EA 88 FF
  1562.             80 5B EB B8 B8 03 17 1A 05 EE B8 B8 03 1A 14 AB 5E 04 5F 91 02 1A 1B F0 B9 B9 AA AF 5E
  1563.             04 03 1D 1A 28 90 00 A7 B2 37 06 8B 59 6C 14 80 02 16 01 7F 00 98 20 6D 16 01 A7 7C A3
  1564.             00 F1 99 36 00 1C 5D A7 6E 41 B1 88 FE 08 03 1E 14 B7 B7 AC 5E 03 15 1A 1A B7 B7 91 02
  1565.             B6 6A 04 18 80 04 7F 01 A8 89 92 FF 31 16 02 8E 01 FF A8 AF 2E 1F 14 B0 AF AF AF AF 77
  1566.             05 A8 AC 6E 43 90 04 3F 04 19 10
  1567.            )
  1568.       FUNCTION-NAME-P "~S: the name of a function must be a symbol, not ~S"
  1569.       ANALYZE-DEFGENERIC-LAMBDALIST "~S ~S: not a ~S option: ~S" DEFGENERIC
  1570.       #S(HASH-TABLE EQ (:METHOD . 179.) (:METHOD-CLASS . 91.) (:GENERIC-FUNCTION-CLASS . 78.)
  1571.          (:METHOD-COMBINATION . 65.) (:DOCUMENTATION . 44.) (:ARGUMENT-PRECEDENCE-ORDER . 23.)
  1572.          (DECLARE . 2.)
  1573.         )
  1574.       #Y(ANALYZE-DEFGENERIC-1 #19Y(01 00 00 00 00 02 A8 31 01 1E 06 90 01 C0 55 19 02 19 02)
  1575.          OPTIMIZE
  1576.         )
  1577.       "~S ~S: Only ~S declarations are permitted: ~S" OPTIMIZE
  1578.       "~S ~S: ~S may only be specified once." :ARGUMENT-PRECEDENCE-ORDER 2.
  1579.       "~S ~S: A string must be specified after ~S : ~S" :DOCUMENTATION
  1580.       "~S ~S: Only one ~S string is allowed" (STANDARD)
  1581.       "~S ~S: The only valid method combination is ~S : ~S" STANDARD (STANDARD-GENERIC-FUNCTION)
  1582.       "~S ~S: The only valid generic function class name is ~S : ~S" STANDARD-GENERIC-FUNCTION
  1583.       (STANDARD-METHOD) "~S ~S: The only valid method class name is ~S : ~S" STANDARD-METHOD
  1584.       ANALYZE-METHOD-DESCRIPTION "~S ~S: invalid syntax in ~S option: ~S" DEFSTRUCT
  1585.       "~S ~S: ~S is not one of the required parameters: ~S" #.#'/=
  1586.       "~S ~S: some variable occurs twice in ~S" "~S ~S: ~S is missing some required parameter"
  1587.       COUNTUP
  1588.   )  )
  1589. #Y(#:TOP-LEVEL-FORM-113 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1590.    ANALYZE-DEFGENERIC-LAMBDALIST SYSTEM::REMOVE-OLD-DEFINITIONS
  1591.    #Y(ANALYZE-DEFGENERIC-LAMBDALIST
  1592.       #237Y(03 00 00 00 00 04 00 2A 02 7B 04 00 00 7B 03 00 01 98 2A 01 00 0B 00 00 D5 01 03 D6 AF
  1593.             8C 00 25 06 AB 69 03 01 1A 11 C2 1A 80 A2 90 08 7F 09 99 70 06 06 00 58 0B 05 00 A0 1F
  1594.             05 90 08 85 04 6B A0 1F 24 90 08 24 05 1F 7F 08 1A 13 98 56 1A 08 90 08 7F 09 98 20 75
  1595.             98 14 9A 33 81 05 16 01 A0 1F 05 90 08 85 04 69 A0 1F 12 90 08 24 06 0D A0 57 1F 09 7F
  1596.             08 74 7F 09 99 33 7A 03 A0 1F 80 47 90 08 24 07 80 41 7F 08 1A 29 98 57 56 1A 12 98 56
  1597.             1A 1B 90 08 7F 09 98 1F 03 83 00 00 98 20 6A 98 14 9A 33 98 20 68 A7 6E 7E 67 08 30 D3
  1598.             14 80 03 16 01 A0 1F 05 90 08 85 04 58 A0 1F 09 90 08 24 09 04 7F 08 7A 01 16 01 8F 07
  1599.             0B CA 14 64 06 00 64 07 01 B1 5E 03 64 04 00 6E 41 64 05 00 6E 43 AC 8E 05 01 00 14 AC
  1600.             AC 3F 06 19 0A
  1601.            )
  1602.       0.
  1603.       #Y(ANALYZE-DEFGENERIC-LAMBDALIST-1 #17Y(01 00 00 00 00 02 A8 31 01 1E 04 99 57 19 02 19 02))
  1604.       "~S ~S: No initializations are allowed in a generic function lambda-list: ~S"
  1605.       #Y(ANALYZE-DEFGENERIC-LAMBDALIST-CHECK-VARNAME
  1606.          #37Y(01 00 00 00 00 02 A8 8B 03 15 A8 65 00 01 D7 37 02 89 B3 0E C3 14 65 01 01 65 01 02
  1607.               AB 5E 03 C1 1A 73 99 19 02
  1608.              )
  1609.          NIL "~S ~S: variable name ~S should be a symbol" #.#'EQ
  1610.          "~S ~S: duplicate variable name ~S"
  1611.         )
  1612.       LAMBDA-LIST-KEYWORD-P &OPTIONAL &REST &KEY *KEYWORD-PACKAGE* &ALLOW-OTHER-KEYS
  1613.       "~S ~S: invalid lambda list portion: ~S"
  1614.   )  )
  1615. #Y(#:TOP-LEVEL-FORM-114 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1616.    DEFGENERIC-LAMBDALIST-CALLINFO SYSTEM::REMOVE-OLD-DEFINITIONS
  1617.    #Y(DEFGENERIC-LAMBDALIST-CALLINFO
  1618.       #24Y(03 00 00 00 00 04 AA AA AA 2C 03 00 41 06 AC AB AB AB AB 2C 05 01 19 0A)
  1619.       ANALYZE-DEFGENERIC-LAMBDALIST CALLINFO
  1620.   )  )
  1621. #Y(#:TOP-LEVEL-FORM-115 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DEFGENERIC
  1622.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1623.    #Y(DEFGENERIC
  1624.       #122Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 80 40 9A 57 74 9B 57 57 74 9C 57 57 75 D7
  1625.             AA AA AA AF 2C 05 03 41 04 D9 5F DA DB DC DD B3 77 02 77 02 77 03 8E 03 24 00 14 E2 DD
  1626.             B3 77 02 DD B1 77 02 DD B1 77 02 A1 78 04 77 01 32 02 20 5D 03 19 0A A9 2E 01 19 03 DD
  1627.             A2 1A 0D A1 1F 79 DE DF DD A4 57 74 77 02 5C 02 14 77 02 E0 A8 E1 DD AF 77 02 77 04 5C
  1628.             01 16 01 1A FF BD
  1629.            )
  1630.       3. SYSTEM::MACRO-CALL-ERROR DEFGENERIC ANALYZE-DEFGENERIC LET EVAL-WHEN (COMPILE)
  1631.       SYSTEM::C-DEFUN QUOTE LOAD-TIME-VALUE GET-SETF-SYMBOL SYSTEM::%SET-DOCUMENTATION 'FUNCTION
  1632.       DO-DEFGENERIC
  1633.   )  )
  1634. #Y(#:TOP-LEVEL-FORM-116 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-GENERIC-FUNCTION
  1635.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1636.    #Y(MAKE-GENERIC-FUNCTION
  1637.       #37Y(03 00 00 00 01 19 AB AB AB 6A 03 00 A9 5F 1A 09 83 01 00 A9 A8 2F 01 7F 01 A8 89 92 73
  1638.            16 02 A7 2E 02 15 19 05
  1639.           )
  1640.       MAKE-FAST-GF STD-ADD-METHOD FINALIZE-FAST-GF
  1641.   )  )
  1642. #Y(#:TOP-LEVEL-FORM-117 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DO-DEFGENERIC
  1643.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1644.    #Y(DO-DEFGENERIC
  1645.       #100Y(03 00 00 00 01 19 AB 88 51 3A AB 95 0E AD AD AD 9E 73 03 2F 0F 19 05 A7 2E 01 A7 85 02
  1646.             08 D8 A8 2F 04 5F A8 2F 05 AB A8 6B 06 89 FF 07 AA A8 6B 07 88 FF 0C DD A8 2F 04 AB A8
  1647.             2F 09 AA A8 2F 0A A9 5F 1A 14 AB 6B 00 A7 8A 1A 4C E2 AD 5E 01 83 01 00 A9 A8 2F 0B 7F
  1648.             01 A8 89 92 73 16 02 A7 2E 0C 15 19 05
  1649.            )
  1650.       FDEFINITION WARN-IF-GF-ALREADY-CALLED GF-METHODS "Removing all methods of ~S" WARN
  1651.       #.(SYSTEM::GET-SETF-SYMBOL 'GF-METHODS) GF-SIGNATURE GF-ARGORDER
  1652.       "Modifying the parameter profile of ~S" #.(SYSTEM::GET-SETF-SYMBOL 'GF-SIGNATURE)
  1653.       #.(SYSTEM::GET-SETF-SYMBOL 'GF-ARGORDER) STD-ADD-METHOD FINALIZE-FAST-GF
  1654.       "~S doesn't name a generic function" MAKE-GENERIC-FUNCTION SYSTEM::SET-FDEFINITION
  1655.   )  )
  1656. #Y(#:TOP-LEVEL-FORM-118 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1657.    MAKE-GENERIC-FUNCTION-FORM SYSTEM::REMOVE-OLD-DEFINITIONS
  1658.    #Y(MAKE-GENERIC-FUNCTION-FORM
  1659.       #34Y(05 00 00 00 00 06 AC AC AC AC AC 2C 05 00 41 04 D6 D7 B1 77 02 D7 AD 77 02 D7 AD 77 02
  1660.            9D 5D 04 19 0A
  1661.           )
  1662.       ANALYZE-DEFGENERIC MAKE-GENERIC-FUNCTION QUOTE
  1663.   )  )
  1664. #Y(#:TOP-LEVEL-FORM-119 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  1665.    GENERIC-FUNCTION SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1666.    #Y(GENERIC-FUNCTION
  1667.       #37Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 10 9A 57 74 9B 57 75 D7 D8 AA AA AE 2C 05
  1668.            04 19 05 A9 2E 01 19 03
  1669.           )
  1670.       2. SYSTEM::MACRO-CALL-ERROR GENERIC-FUNCTION LAMBDA MAKE-GENERIC-FUNCTION-FORM
  1671.   )  )
  1672. #Y(#:TOP-LEVEL-FORM-120 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1673.    ANALYZE-GENERIC-FUNDEFS SYSTEM::REMOVE-OLD-DEFINITIONS
  1674.    #Y(ANALYZE-GENERIC-FUNDEFS
  1675.       #63Y(03 00 00 00 00 04 01 02 AB 5F 1A 23 D5 AF A9 5E 02 83 01 00 1F 76 98 57 1F 72 90 00 80
  1676.            03 AE 90 01 9A 57 74 9B 57 75 B0 6A 05 01 80 02 7F 01 A8 89 92 5E 16 02 A8 6E 43 A8 6E
  1677.            43 3F 02 19 06
  1678.           )
  1679.       "~S: ~S is not a generic function specification" MAKE-GENERIC-FUNCTION-FORM
  1680.   )  )
  1681. #Y(#:TOP-LEVEL-FORM-121 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) GENERIC-FLET
  1682.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1683.    #Y(GENERIC-FLET
  1684.       #97Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 20 9A 57 74 9B 57 75 D7 A9 AC 2C 03 03 41
  1685.            02 A8 6E 41 6B 04 DA DB A9 AB 6F 01 17 DC 5F AB AE 1A 21 A9 2E 01 19 03 16 03 1A 1D 90
  1686.            01 99 1F 77 90 01 A7 DD DE AB CA 78 02 77 03 80 04 16 02 7F 01 7F 00 99 20 65 16 02 A7
  1687.            7C A3 00 9F 78 02 5C 03 19 08
  1688.           )
  1689.       2. SYSTEM::MACRO-CALL-ERROR GENERIC-FLET ANALYZE-GENERIC-FUNDEFS N-GENSYMS LET #.#'LIST FLET
  1690.       (&REST ARGS) APPLY (ARGS)
  1691.   )  )
  1692. #Y(#:TOP-LEVEL-FORM-122 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) GENERIC-LABELS
  1693.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1694.    #Y(GENERIC-LABELS
  1695.       #133Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 1B 9A 57 74 9B 57 75 D7 A9 AC 2C 03 03 41
  1696.             02 A8 6E 41 6B 04 DA A8 DB 5F AB AE 1A 21 A9 2E 01 19 03 16 03 1A 1D 90 01 99 1F 77 90
  1697.             01 A7 DC DD AB C9 78 02 77 03 80 04 16 02 7F 01 7F 00 99 20 65 16 02 A7 7C A3 00 5F AC
  1698.             AE 1A 18 16 03 1A 19 90 01 99 1F 77 90 01 DF A9 A9 77 03 80 04 16 02 7F 01 7F 00 99 20
  1699.             69 16 02 A7 7C A3 00 AF 32 02 20 78 02 5C 03 19 08
  1700.            )
  1701.       2. SYSTEM::MACRO-CALL-ERROR GENERIC-LABELS ANALYZE-GENERIC-FUNDEFS N-GENSYMS LET FLET
  1702.       (&REST ARGS) APPLY (ARGS) SETQ
  1703.   )  )
  1704. #Y(#:TOP-LEVEL-FORM-123
  1705.    #31Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB DC 6B 08 77 01 DE 5F DF E0 6A 0A 0C 2C 04 0D 19
  1706.         01
  1707.        )
  1708.    CLASS-NAME (1. 0. NIL NIL NIL) (0.) :INITFUNCTION
  1709.    #Y(#:TOP-LEVEL-FORM-123-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1710.       #Y(#:TOP-LEVEL-FORM-123-1-1 #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) CLASS 2.) (T)
  1711.      )
  1712.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS CLASS FIND-CLASS :QUALIFIERS :SIGNATURE
  1713.    (1. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
  1714.   )
  1715. #Y(#:TOP-LEVEL-FORM-124
  1716.    #34Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB 60 6B 07 DD 6B 07 77 02 DE 5F DF E0 6A 0A 0C 2C
  1717.         04 0D 19 01
  1718.        )
  1719.    (SETF CLASS-NAME) (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION
  1720.    #Y(#:TOP-LEVEL-FORM-124-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1721.       #Y(#:TOP-LEVEL-FORM-124-1-1
  1722.          #32Y(02 00 00 00 00 03 A9 8B 03 0C A8 84 02 0D DA A9 DB AC 31 2B 19 03 D5 D6 AB 5E 02 D8
  1723.               D9 AA 5E 02
  1724.              )
  1725.          "~S: The name of a class must be a symbol, not ~S" (SETF CLASS-NAME) BUILT-IN-CLASS-P
  1726.          "~S: The name of the built-in class ~S cannot be modified" (SETF CLASS-NAME) CLASS 2.
  1727.         )
  1728.       (T)
  1729.      )
  1730.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS FIND-CLASS CLASS :QUALIFIERS :SIGNATURE
  1731.    (2. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
  1732.   )
  1733. #Y(#:TOP-LEVEL-FORM-125
  1734.    #31Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB 60 6B 07 77 01 DD 5F DE DF 6A 0A 0B 2C 04 0C 19
  1735.         01
  1736.        )
  1737.    NO-APPLICABLE-METHOD (1. 0. T NIL NIL) (0.) :INITFUNCTION
  1738.    #Y(#:TOP-LEVEL-FORM-125-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1739.       #Y(#:TOP-LEVEL-FORM-125-1-1 #12Y(01 00 00 00 01 17 D5 D6 AB AB 5E 03)
  1740.          "~S: When calling ~S with arguments ~S, no method is applicable." NO-APPLICABLE-METHOD
  1741.         )
  1742.       (T)
  1743.      )
  1744.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS FIND-CLASS :QUALIFIERS :SIGNATURE
  1745.    (1. 0. T NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
  1746.   )
  1747. #Y(#:TOP-LEVEL-FORM-126
  1748.    #31Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB 60 6B 07 77 01 DD 5F DE DF 6A 0A 0B 2C 04 0C 19
  1749.         01
  1750.        )
  1751.    NO-PRIMARY-METHOD (1. 0. T NIL NIL) (0.) :INITFUNCTION
  1752.    #Y(#:TOP-LEVEL-FORM-126-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1753.       #Y(#:TOP-LEVEL-FORM-126-1-1 #12Y(01 00 00 00 01 17 D5 D6 AB AB 5E 03)
  1754.          "~S: When calling ~S with arguments, no primary method is applicable." NO-PRIMARY-METHOD
  1755.         )
  1756.       (T)
  1757.      )
  1758.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS FIND-CLASS :QUALIFIERS :SIGNATURE
  1759.    (1. 0. T NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
  1760.   )
  1761. #Y(#:TOP-LEVEL-FORM-127 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) %NO-NEXT-METHOD
  1762.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1763.    #Y(%NO-NEXT-METHOD #18Y(01 00 00 00 01 17 95 00 D6 AB D7 6E 2A AB 9C 97 02 03) NO-NEXT-METHOD
  1764.       STANDARD-METHOD 6.
  1765.   )  )
  1766. #Y(#:TOP-LEVEL-FORM-128
  1767.    #34Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB DC 6B 08 DE 6B 08 77 02 DF 5F E0 E1 6A 0A 0D 2C
  1768.         04 0E 19 01
  1769.        )
  1770.    NO-NEXT-METHOD (2. 0. T NIL NIL) (0. 1.) :INITFUNCTION
  1771.    #Y(#:TOP-LEVEL-FORM-128-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1772.       #Y(#:TOP-LEVEL-FORM-128-1-1 #14Y(02 00 00 00 01 18 D5 D6 AC AB AD D7 5E 05)
  1773.          "~S: When calling ~S with arguments, there is no next method after ~S, and ~S was called."
  1774.          NO-NEXT-METHOD (CALL-NEXT-METHOD)
  1775.         )
  1776.       (T)
  1777.      )
  1778.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-GENERIC-FUNCTION FIND-CLASS
  1779.    STANDARD-METHOD :QUALIFIERS :SIGNATURE (2. 0. T NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
  1780.   )
  1781. #Y(#:TOP-LEVEL-FORM-129
  1782.    #37Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB DC 6B 08 60 6B 08 60 6B 08 77 03 DE 5F DF E0 6A
  1783.         0A 0C 2C 04 0D 19 01
  1784.        )
  1785.    FIND-METHOD (3. 1. NIL NIL NIL) (0. 1. 2.) :INITFUNCTION
  1786.    #Y(#:TOP-LEVEL-FORM-129-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1787.       #Y(#:TOP-LEVEL-FORM-129-1-1
  1788.          #24Y(03 00 00 00 01 19 99 38 01 01 3A 00 02 7A 00 AC AC AC AA 2C 04 00 19 06)
  1789.          STD-FIND-METHOD
  1790.         )
  1791.       (T)
  1792.      )
  1793.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-GENERIC-FUNCTION FIND-CLASS :QUALIFIERS
  1794.    :SIGNATURE (3. 1. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
  1795.   )
  1796. #Y(#:TOP-LEVEL-FORM-130
  1797.    #34Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB DC 6B 08 DE 6B 08 77 02 DF 5F E0 E1 6A 0A 0D 2C
  1798.         04 0E 19 01
  1799.        )
  1800.    ADD-METHOD (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION
  1801.    #Y(#:TOP-LEVEL-FORM-130-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1802.       #Y(#:TOP-LEVEL-FORM-130-1-1 #12Y(02 00 00 00 00 03 A9 A9 2F 00 19 03) STD-ADD-METHOD) (T)
  1803.      )
  1804.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-GENERIC-FUNCTION FIND-CLASS
  1805.    STANDARD-METHOD :QUALIFIERS :SIGNATURE (2. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD
  1806.    DO-DEFGENERIC
  1807.   )
  1808. #Y(#:TOP-LEVEL-FORM-131
  1809.    #34Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB DC 6B 08 DE 6B 08 77 02 DF 5F E0 E1 6A 0A 0D 2C
  1810.         04 0E 19 01
  1811.        )
  1812.    REMOVE-METHOD (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION
  1813.    #Y(#:TOP-LEVEL-FORM-131-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1814.       #Y(#:TOP-LEVEL-FORM-131-1-1 #12Y(02 00 00 00 00 03 A9 A9 2F 00 19 03) STD-REMOVE-METHOD) (T)
  1815.      )
  1816.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-GENERIC-FUNCTION FIND-CLASS
  1817.    STANDARD-METHOD :QUALIFIERS :SIGNATURE (2. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD
  1818.    DO-DEFGENERIC
  1819.   )
  1820. #Y(#:TOP-LEVEL-FORM-132 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1821.    COMPUTE-APPLICABLE-METHODS SYSTEM::REMOVE-OLD-DEFINITIONS
  1822.    #Y(COMPUTE-APPLICABLE-METHODS
  1823.       #57Y(02 00 00 00 00 03 A9 2E 00 74 AA 6B 01 AA 6E 41 A9 8C 01 30 03 00 19 05 00 2A 01 AB D7
  1824.            AB 31 3F 0B 00 00 A7 69 03 01 A9 37 05 7D 4A 01 14 64 01 00 AE 6B 04 2C 03 05 19 06
  1825.           )
  1826.       GF-SIGNATURE GF-METHODS 0.
  1827.       #Y(COMPUTE-APPLICABLE-METHODS-1 #14Y(01 00 00 00 00 02 A8 65 00 01 2F 01 19 02) NIL
  1828.          METHOD-APPLICABLE-P
  1829.         )
  1830.       GF-ARGORDER SORT-APPLICABLE-METHODS
  1831.   )  )
  1832. #Y(#:TOP-LEVEL-FORM-133
  1833.    #31Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB DC 6B 08 77 01 DE 5F DF E0 6A 0A 0C 2C 04 0D 19
  1834.         01
  1835.        )
  1836.    METHOD-QUALIFIERS (1. 0. NIL NIL NIL) (0.) :INITFUNCTION
  1837.    #Y(#:TOP-LEVEL-FORM-133-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1838.       #Y(#:TOP-LEVEL-FORM-133-1-1 #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) STANDARD-METHOD 4.)
  1839.       (T)
  1840.      )
  1841.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-METHOD FIND-CLASS :QUALIFIERS :SIGNATURE
  1842.    (1. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
  1843.   )
  1844. #Y(#:TOP-LEVEL-FORM-134
  1845.    #31Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB DC 6B 08 77 01 DE 5F DF E0 6A 0A 0C 2C 04 0D 19
  1846.         01
  1847.        )
  1848.    FUNCTION-KEYWORDS (1. 0. NIL NIL NIL) (0.) :INITFUNCTION
  1849.    #Y(#:TOP-LEVEL-FORM-134-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1850.       #Y(#:TOP-LEVEL-FORM-134-1-1 #18Y(01 00 00 00 00 02 D5 A9 D6 31 2A 57 57 57 57 43 19 02)
  1851.          STANDARD-METHOD 5.
  1852.         )
  1853.       (T)
  1854.      )
  1855.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-METHOD FIND-CLASS :QUALIFIERS :SIGNATURE
  1856.    (1. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
  1857.   )
  1858. #Y(#:TOP-LEVEL-FORM-135
  1859.    #40Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB 60 6B 07 60 6B 07 60 6B 07 60 6B 07 77 04 DD 5F
  1860.         DE DF 6A 0A 0B 2C 04 0C 19 01
  1861.        )
  1862.    SLOT-MISSING (4. 1. NIL NIL NIL) (0. 1. 2. 3.) :INITFUNCTION
  1863.    #Y(#:TOP-LEVEL-FORM-135-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1864.       #Y(#:TOP-LEVEL-FORM-135-1-1 #16Y(04 00 00 00 01 1A 99 38 01 01 D5 AB AF AE 5E 03)
  1865.          "~S: The class ~S has no slot named ~S"
  1866.         )
  1867.       (T)
  1868.      )
  1869.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS FIND-CLASS :QUALIFIERS :SIGNATURE
  1870.    (4. 1. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
  1871.   )
  1872. #Y(#:TOP-LEVEL-FORM-136
  1873.    #37Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB 60 6B 07 60 6B 07 60 6B 07 77 03 DD 5F DE DF 6A
  1874.         0A 0B 2C 04 0C 19 01
  1875.        )
  1876.    SLOT-UNBOUND (3. 0. NIL NIL NIL) (0. 1. 2.) :INITFUNCTION
  1877.    #Y(#:TOP-LEVEL-FORM-136-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1878.       #Y(#:TOP-LEVEL-FORM-136-1-1 #12Y(03 00 00 00 00 04 D5 D6 AA AC 5E 03)
  1879.          "~S: The slot ~S of ~S has no value" SLOT-VALUE
  1880.         )
  1881.       (T)
  1882.      )
  1883.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS FIND-CLASS :QUALIFIERS :SIGNATURE
  1884.    (3. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
  1885.   )
  1886. #Y(#:TOP-LEVEL-FORM-137
  1887.    #34Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB DC 6B 08 60 6B 08 77 02 DE 5F DF E0 6A 0A 0C 2C
  1888.         04 0D 19 01
  1889.        )
  1890.    PRINT-OBJECT (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION
  1891.    #Y(#:TOP-LEVEL-FORM-137-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1892.       #Y(#:TOP-LEVEL-FORM-137-1-1 #18Y(02 00 00 00 00 03 5F AA AA D5 60 D6 60 2C 07 02 19 03) :TYPE
  1893.          :IDENTITY SYSTEM::WRITE-UNREADABLE
  1894.         )
  1895.       (T)
  1896.      )
  1897.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT FIND-CLASS :QUALIFIERS :SIGNATURE
  1898.    (2. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
  1899.   )
  1900. #Y(#:TOP-LEVEL-FORM-138
  1901.    #34Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB DC 6B 08 60 6B 08 77 02 DE 5F DF E0 6A 0A 0C 2C
  1902.         04 0D 19 01
  1903.        )
  1904.    DESCRIBE-OBJECT (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION
  1905.    #Y(#:TOP-LEVEL-FORM-138-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  1906.       #Y(#:TOP-LEVEL-FORM-138-1-1
  1907.          #110Y(02 00 00 00 00 03 95 00 AA 6E 25 D6 A8 D7 7D 2A 00 6F 00 17 8E 00 06 A9 E1 2F 08 19
  1908.                04 D8 A8 6F 00 17 D9 DA DB AA 6F 00 17 37 04 6E 45 6F 02 33 AB DC 2F 08 A9 A9 1A 2E
  1909.                AF DF B2 AB 6E 37 2C 03 08 16 02 1A 1D 16 03 1A 22 90 01 99 1F 77 90 01 AF DE A9 AE
  1910.                2C 04 08 B0 A9 8A 39 5C AF E0 2F 08 16 02 7F 01 7F 00 99 20 60 16 02 9A 19 06
  1911.               )
  1912.          SLOTDEF-NAME STANDARD-CLASS 8. #.#'WRITE-TO-STRING 4. #.#'MAX #.#'LENGTH "~%Slots:" FORMAT
  1913.          "~%  ~A~VT" "=  ~S" "unbound" "~%No slots."
  1914.         )
  1915.       (T)
  1916.      )
  1917.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT FIND-CLASS :QUALIFIERS :SIGNATURE
  1918.    (2. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
  1919.   )
  1920. #Y(#:TOP-LEVEL-FORM-139 #21Y(00 00 00 00 00 01 D5 30 5B D6 37 05 C2 F9 6D 63 30 53 C1 19 01)
  1921.    (SPECIAL *MAKE-INSTANCE-TABLE*) *MAKE-INSTANCE-TABLE* #.#'EQ
  1922.   )
  1923. #Y(#:TOP-LEVEL-FORM-140 #21Y(00 00 00 00 00 01 D5 30 5B D6 37 05 C2 F9 6D 63 30 53 C1 19 01)
  1924.    (SPECIAL *REINITIALIZE-INSTANCE-TABLE*) *REINITIALIZE-INSTANCE-TABLE* #.#'EQ
  1925.   )
  1926. #Y(#:TOP-LEVEL-FORM-141 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) NOTE-I-CHANGE
  1927.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1928.    #Y(NOTE-I-CHANGE
  1929.       #28Y(02 00 00 00 00 03 00 2A 02 7B 03 00 00 7B 02 00 01 A7 69 00 01 64 01 01 30 67 19 04)
  1930.       #Y(NOTE-I-CHANGE-1
  1931.          #24Y(02 00 00 00 00 03 A9 65 00 01 86 01 03 00 19 03 A9 65 00 02 30 66 19 03) NIL
  1932.          SUBCLASSP
  1933.   )  )  )
  1934. #Y(#:TOP-LEVEL-FORM-142 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) NOTE-II-CHANGE
  1935.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1936.    #Y(NOTE-II-CHANGE
  1937.       #25Y(01 00 00 00 00 02 D5 A9 D6 31 2A 74 98 20 07 A7 67 02 2F 03 19 03 00 19 03)
  1938.       STANDARD-METHOD 3. *MAKE-INSTANCE-TABLE* NOTE-I-CHANGE
  1939.   )  )
  1940. #Y(#:TOP-LEVEL-FORM-143 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) NOTE-RI-CHANGE
  1941.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1942.    #Y(NOTE-RI-CHANGE
  1943.       #25Y(01 00 00 00 00 02 D5 A9 D6 31 2A 74 98 20 07 A7 67 02 2F 03 19 03 00 19 03)
  1944.       STANDARD-METHOD 3. *REINITIALIZE-INSTANCE-TABLE* NOTE-I-CHANGE
  1945.   )  )
  1946. #Y(#:TOP-LEVEL-FORM-144 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) NOTE-SI-CHANGE
  1947.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1948.    #Y(NOTE-SI-CHANGE
  1949.       #44Y(01 00 00 00 00 02 D5 A9 D6 6E 2A 90 00 99 57 74 99 20 0F 60 A8 87 02 05 A8 67 03 2F 04
  1950.            5F A8 86 02 03 00 19 05 A8 67 05 2F 04 19 05
  1951.           )
  1952.       STANDARD-METHOD 3. TYPEP *MAKE-INSTANCE-TABLE* NOTE-I-CHANGE *REINITIALIZE-INSTANCE-TABLE*
  1953.   )  )
  1954. #Y(#:TOP-LEVEL-FORM-145 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1955.    VALID-INITARG-KEYWORDS SYSTEM::REMOVE-OLD-DEFINITIONS
  1956.    #Y(VALID-INITARG-KEYWORDS
  1957.       #38Y(02 00 00 00 00 03 95 00 A9 6F 00 17 D6 A8 37 05 7D 4D 00 D7 AB D8 6E 2A D9 A9 6C 05 6F
  1958.            02 20 60 37 05 31 4E 19 04
  1959.           )
  1960.       STD-METHOD-SIGNATURE #.#'FOURTH STANDARD-CLASS 13. #.#'FIFTH MAPCAP
  1961.   )  )
  1962. #Y(#:TOP-LEVEL-FORM-146 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1963.    VALID-MAKE-INSTANCE-KEYWORDS SYSTEM::REMOVE-OLD-DEFINITIONS
  1964.    #Y(VALID-MAKE-INSTANCE-KEYWORDS
  1965.       #45Y(01 00 00 00 00 02 00 2A 01 7B 02 00 00 14 A8 69 00 01 67 01 6B 02 37 05 6E 4A A9 69 03
  1966.            01 67 04 6B 02 37 05 6E 4A 6F 02 20 2F 05 19 03
  1967.           )
  1968.       #Y(VALID-MAKE-INSTANCE-KEYWORDS-1
  1969.          #37Y(01 00 00 00 00 02 D6 A9 D7 6E 2A 90 00 99 57 74 A8 31 02 1E 0E 65 00 01 A9 2F 03 1E
  1970.               06 60 A8 2F 04 19 05 19 05
  1971.              )
  1972.          NIL STANDARD-METHOD 3. SUBCLASSP TYPEP
  1973.         )
  1974.       |#'shared-initialize| GF-METHODS
  1975.       #Y(VALID-MAKE-INSTANCE-KEYWORDS-2
  1976.          #27Y(01 00 00 00 00 02 D6 A9 D7 31 2A 74 A7 31 02 1E 08 65 00 01 A8 2F 03 19 03 19 03) NIL
  1977.          STANDARD-METHOD 3. SUBCLASSP
  1978.         )
  1979.       |#'initialize-instance| VALID-INITARG-KEYWORDS
  1980.   )  )
  1981. #Y(#:TOP-LEVEL-FORM-147 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1982.    MAKE-INSTANCE-TABLE-ENTRY2 SYSTEM::REMOVE-OLD-DEFINITIONS
  1983.    #Y(MAKE-INSTANCE-TABLE-ENTRY2
  1984.       #21Y(01 00 00 00 00 02 67 00 A9 6C 01 67 02 AA 60 2C 03 01 58 19 02) |#'initialize-instance|
  1985.       COMPUTE-EFFECTIVE-METHOD |#'shared-initialize|
  1986.   )  )
  1987. #Y(#:TOP-LEVEL-FORM-148 #14Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 19 01) SHARED-INITIALIZE
  1988.    (2. 0. T NIL NIL) (0. 1.) DO-DEFGENERIC
  1989.   )
  1990. #Y(#:TOP-LEVEL-FORM-149 #12Y(00 00 00 00 00 01 94 00 0F 01 19 01) SHARED-INITIALIZE
  1991.    |#'shared-initialize|
  1992.   )
  1993. #Y(#:TOP-LEVEL-FORM-150
  1994.    #31Y(00 00 00 00 00 01 D5 D6 D7 D8 5F D9 DA 6B 06 60 6B 06 77 02 DC 5F DD DE 6A 0A 0A 2F 0B 19
  1995.         01
  1996.        )
  1997.    SHARED-INITIALIZE :INITFUNCTION
  1998.    #Y(#:TOP-LEVEL-FORM-150-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02) #.#'%SHARED-INITIALIZE (T))
  1999.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT FIND-CLASS :QUALIFIERS :SIGNATURE
  2000.    (2. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD
  2001.   )
  2002. #Y(#:TOP-LEVEL-FORM-151 #14Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 19 01) REINITIALIZE-INSTANCE
  2003.    (1. 0. T NIL NIL) (0.) DO-DEFGENERIC
  2004.   )
  2005. #Y(#:TOP-LEVEL-FORM-152 #12Y(00 00 00 00 00 01 94 00 0F 01 19 01) REINITIALIZE-INSTANCE
  2006.    |#'reinitialize-instance|
  2007.   )
  2008. #Y(#:TOP-LEVEL-FORM-153
  2009.    #28Y(00 00 00 00 00 01 D5 D6 D7 D8 5F D9 DA 6B 06 77 01 DC 5F DD DE 6A 0A 0A 2F 0B 19 01)
  2010.    REINITIALIZE-INSTANCE :INITFUNCTION
  2011.    #Y(#:TOP-LEVEL-FORM-153-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02) #.#'%REINITIALIZE-INSTANCE (T))
  2012.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT FIND-CLASS :QUALIFIERS :SIGNATURE
  2013.    (1. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD
  2014.   )
  2015. #Y(#:TOP-LEVEL-FORM-154 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  2016.    INITIAL-REINITIALIZE-INSTANCE SYSTEM::REMOVE-OLD-DEFINITIONS
  2017.    #Y(INITIAL-REINITIALIZE-INSTANCE
  2018.       #63Y(01 00 00 00 01 17 00 2A 01 AA 31 25 0B 00 00 14 A8 69 00 01 67 01 6B 02 37 05 6E 4A 6C
  2019.            03 AA A8 30 61 67 01 AC 5F 6A 03 04 64 02 00 67 05 AA 9B 76 A9 A9 A9 30 65 16 03 A7 AD
  2020.            5F 9F 97 02 06
  2021.           )
  2022.       #Y(INITIAL-REINITIALIZE-INSTANCE-1
  2023.          #37Y(01 00 00 00 00 02 D6 A9 D7 6E 2A 90 00 99 57 74 A8 31 02 1E 0E 65 00 01 A9 2F 03 1E
  2024.               06 5F A8 2F 04 19 05 19 05
  2025.              )
  2026.          NIL STANDARD-METHOD 3. SUBCLASSP TYPEP
  2027.         )
  2028.       |#'shared-initialize| GF-METHODS VALID-INITARG-KEYWORDS COMPUTE-EFFECTIVE-METHOD
  2029.       *REINITIALIZE-INSTANCE-TABLE*
  2030.   )  )
  2031. #Y(#:TOP-LEVEL-FORM-155 #14Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 19 01) INITIALIZE-INSTANCE
  2032.    (1. 0. T NIL NIL) (0.) DO-DEFGENERIC
  2033.   )
  2034. #Y(#:TOP-LEVEL-FORM-156 #12Y(00 00 00 00 00 01 94 00 0F 01 19 01) INITIALIZE-INSTANCE
  2035.    |#'initialize-instance|
  2036.   )
  2037. #Y(#:TOP-LEVEL-FORM-157
  2038.    #28Y(00 00 00 00 00 01 D5 D6 D7 D8 5F D9 DA 6B 06 77 01 DC 5F DD DE 6A 0A 0A 2F 0B 19 01)
  2039.    INITIALIZE-INSTANCE :INITFUNCTION
  2040.    #Y(#:TOP-LEVEL-FORM-157-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02) #.#'%INITIALIZE-INSTANCE (T))
  2041.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT FIND-CLASS :QUALIFIERS :SIGNATURE
  2042.    (1. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD
  2043.   )
  2044. #Y(#:TOP-LEVEL-FORM-158 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  2045.    INITIAL-INITIALIZE-INSTANCE SYSTEM::REMOVE-OLD-DEFINITIONS
  2046.    #Y(INITIAL-INITIALIZE-INSTANCE
  2047.       #35Y(01 00 00 00 01 17 A9 6E 25 A7 6B 00 AB 6B 01 67 02 A9 9A 76 AB A9 A9 30 65 16 02 91 00
  2048.            AD 60 9F 97 02 06
  2049.           )
  2050.       VALID-MAKE-INSTANCE-KEYWORDS MAKE-INSTANCE-TABLE-ENTRY2 *MAKE-INSTANCE-TABLE*
  2051.   )  )
  2052. #Y(#:TOP-LEVEL-FORM-159
  2053.    #31Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA 60 DB DC 6B 08 77 01 DE 5F DF E0 6A 0A 0C 2C 04 0D 19
  2054.         01
  2055.        )
  2056.    MAKE-INSTANCE (1. 0. T NIL NIL) (0.) :INITFUNCTION
  2057.    #Y(#:TOP-LEVEL-FORM-159-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02)
  2058.       #Y(#:TOP-LEVEL-FORM-159-1-1 #15Y(01 00 00 00 01 17 95 00 AA 6B 01 9B 97 01 03) MAKE-INSTANCE
  2059.          FIND-CLASS
  2060.         )
  2061.       (T)
  2062.      )
  2063.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SYMBOL FIND-CLASS :QUALIFIERS :SIGNATURE
  2064.    (1. 0. T NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
  2065.   )
  2066. #Y(#:TOP-LEVEL-FORM-160
  2067.    #28Y(00 00 00 00 00 01 D5 D6 D7 D8 5F D9 DA 6B 06 77 01 DC 5F DD DE 6A 0A 0A 2F 0B 19 01)
  2068.    MAKE-INSTANCE :INITFUNCTION
  2069.    #Y(#:TOP-LEVEL-FORM-160-1 #11Y(01 00 00 00 00 02 D5 C1 58 19 02) #.#'%MAKE-INSTANCE (T))
  2070.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-CLASS FIND-CLASS :QUALIFIERS :SIGNATURE
  2071.    (1. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD
  2072.   )
  2073. #Y(#:TOP-LEVEL-FORM-161 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) INITIAL-MAKE-INSTANCE
  2074.    SYSTEM::REMOVE-OLD-DEFINITIONS
  2075.    #Y(INITIAL-MAKE-INSTANCE
  2076.       #43Y(01 00 00 00 01 17 A9 6B 00 A9 A8 30 61 AA D6 AC D7 6E 2A 6E 36 A7 6B 03 67 04 AA 9A 76
  2077.            AE A9 A9 30 65 16 02 90 00 A9 9E 97 01 06
  2078.           )
  2079.       VALID-MAKE-INSTANCE-KEYWORDS STANDARD-CLASS 9. MAKE-INSTANCE-TABLE-ENTRY2
  2080.       *MAKE-INSTANCE-TABLE*
  2081.   )  )